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mmtm 

■ if800 model 20 

MLT 

• MULTI 16 M- BA SIC -JcfemW 

ea 

MSX 

HB-55, FM-X #MSX BASIC 
fill 



- 10 - 


000000 @ <!k 



?:;,”’ '>>7t<;u 

~-*/+-¥ 

< = > 

+ =<> 

NOT AND OR XOR IMP EQV tHHiSl#-?- 
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STEP ON, STEP OFF Xfy^t T 
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AUTO 50 

LIST -7°o 77 A<7) 'I X 1- 52 

LLIST m FPW) 54 

RENUM If #^<DSSa 56 

DELETE 5 7 

NO LIST 58 

KEY,,,* 59 

LOGIN 7d 77 A • j- g T<7U5J ')#§*. 60 

PCOPY (i*'<7)-7‘o 77A-I i) T I:7 d 77i^3 t° 61 

[3] 7t- (1) 

► 7" □ 7 ^ 

REM ItWiSt 63 

STOP Ifih 64 

CONT rn /7 65 

END 7°d/7A(7)^T 66 

ft A 

LET ft A# 67 

READ t'— 9-%frt3<r>Kt\ 68 

DATA -f'- 7 3C 69 

RESTORE Efc^iL L{£E*>*t£ 70 

S WAPvalue fi£<503c*& 71 
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DEFSNG 73 

DEFDBL 74 

DEFSTR 75 

DEFCHR $ 76 

DEF SEG X • 7 K U XC7),w:>iL 77 

DIM gd?ij<7);t#g 78 

OPTION BASE fid^iJTRSfit^tt^: 80 

CLEAR / -t U • 9 ') T 81 

ERASE 83 

DEFFN 84 

COMMON 85 

DEFUSR T K U 86 

PARACT, PARAEND, URGENCY 87 

FOR i')!L 89 

NEXT ISI »J oS L 90 

IF 91 

GOTO flfctfiB L 92 

ON GOTO 93 

WHILE Jls—7 R 4k1 e lr3C 95 

UNTIL ;u-*7°^f1*^C 96 

AT EOF #n 97 

ON ERROR GOTO 98 

ERROR X7-OlM-^T; 99 

TRAP ON 5>i 100 

RESUME 07 — 101 

ERL X7-Mr 102 

ERR 07 — *0:*! 103 

GOSUB SljT’n^ A^c7V/Hi£ 104 

ON GOSUB — i05 
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EXEC ^7A(7)^1f ^^9 
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INKEY $ *-\j]COfc}\\ 129 
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INPUT #n -> — 7- > • 7 r >f /UAlj^C 132 

LINE INPUT #n v — 7 > :x ^ ^ • 7 r 4 Mr Air# ••• 133 

GET 7 r #A • 7 r 4 A7J 135 

READ #n |Xj|f|57— K<507r 4 136 

INP rK— h frio<nXi) 137 

► utl TUpp - ^ 

PRINT CRT^co,‘hlJ 139 

PRINT USING > h 1 ) -*41 

PRINT USING > b (%<T)2) 143 

PRINT USING £7° 'J > h (^C0 3) 144 
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PRINT USING > b (^£0 4 ) 246 

PRINT USING 1*I-^r4r7 0 'J > b (>e^5) 148 

LPRINT 7° 9 149 

LPRINT USING ') >9 }\\ jj 250 

COPY b°— 151 

PRINT #n y-y>yf;i/* 7rUi' tfiljX 252 

PRINT #n USING j 253 

PUT X > X A • ~7 T 'i Jl'' s ^COi\\ 2j 254 

LSET *7 4 — 255 

RSET "7 4 — ;u K l A J I* 7* 256 

WRITE #n bblSflx — b'X>7 r 4 257 

OUT itf-hm* 258 

►X-f A^Afcb 7) • 77^^ 

LOAD 7d/7A<T)d - K 259 

SAVE 7°D/7A^|rt 261 

NAME 7 r 4 263 

KILL 7 r 4 265 

SET 7x4 >u«tt<7>«3g£»|fe 267 

MOUNT -x7 > b X 269 

REMOVE 9 A — 7'X 2 70 

MAXFILE ^77rS(t$ 2 71 

OPEN 77 4 / 1 , 7 7^K7)t-7°>X 172 

CLOSE 7? Ul' • 9 d — XX 2 74 

FIELD 7 4 — KX 2 75 

FILES f^H'J m* 2 77 

LFILES x' * P 7 b 9 <n~ 7 ° 9 > 9 ttlj 2 79 

FORMAT 7t-777p7 280 

CREATE 1> 9 XJffcfX 282 

FILECOPY 7 7^1^0 7 b°- 284 

MARGIN #n 1/7-KI^tI 285 

RESTORE # n 7 r 4 )V • 4 P 9 CD&§1) 286 

VSAVE, VLOAD VIDEO-RAM f-70-fe-7'b d- K ••• 287 
SWAPyo /?A 7 °d/7A^tO^ 288 


DSKI $ -fe 2 9 \ h 289 

DSKO $ -tr 7 7,'l^j 290 

DSKF rW X 9 • 7 9 — 291 

EOF 7 x 4 9 292 

EOR #n P:? — Kj^ign— 293 

ATTR $ 7rU^i'l4i^ 2 94 

FPOS 296 

LOC P x — 297 

LOF 7 299 

► *-tr -y h AttiTJ 

CLOAD 77 4 z v b • □ — K 200 

CSAVE -fe — 7' 202 

CLOAD ? 77 -fe y b • u — K • ^ 9 7 7 4 204 

ROPEN 77 -b x b • x — 7°X> 9 — K • X— 7°> 206 

WOPEN ij -fe ••/ b • x— 7°X>x 4 b • X-7°> 207 

MOTOR 77 -t b • x — 7° • p=7 — XcD^e- 2J|iiJU|) 208 

► —Ax®® 

CONSOLE WtSIfSiJfll 209 

ERASE pSj pgcXi^i 210 

WIDTH jjg) ® CO X ^f : %C & ?&'£. 212 

ROLL X 9 o— 9 P 214 

SCREEN, Wft 216 

LOCATE 77 - V 21 7 

CSRLIN 77- 219 

POS 77 - V 220 

PEN 70* ^PX>x. 9 Tffifc 221 

PEN Mtt 7 4 b • '<>m& 222 

MOUSE ^7 X<7)«j£ ,{&>]£ 224 

► ' 7=77 4 7 

SCREENt-K 777 ^ y KK£*i 225 


VIEW, WINDOW 227 

PMAP mffico'giW: 229 

COLOR 230 

LINE £ (%<n 1 ) 232 

LINE (Z<K2) 233 

LINE | ^ 3 ) 234 

CIRCLE t#P 236 

PAINT 238 

PSET K *y h • «te h 240 

PRESET K "/ h • U -t y h 242 

POINT K *y hfJj^ 244 

SYMBOL 246 

GCURSOR /7 7 4 y 2 • *7 — V ') 247 

GET@ iWHfco-b-T' 248 

GET® A pii®c7)-fe-*7' 250 

SPRITE $ X7 7>f h • 'if — xnifM 251 

PUT @ 252 

PUT @ A fid*ij pJJlP ,4i fi 254 

PUT SPRITE &8CUM&* 255 

► 1=f ^ 

BEEP 256 

MUSIC 257 

TEMPO f- > 258 

► iSfWlUSi 

OPEN Am* A,‘h*rK- h co*— ’7 P > £ 259 

COM (n) ON 9 261 

ON COM (n) GOSUB Jiff A 262 

TERM LTfUJil 263 

► *0Ui 

TIME ON, TIME OFF, TIME STOP 9 4 *^flJ *) && 

ff nf, m± 265 

ON TIME GOSUB 9 4 "^fJ 9 266 
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ON KEY GOSUB, OFF KEY 267 

PEN ON, PEN OFF, PEN STOP =7 4 V • \Z X b 

Hit 269 

ON PEN GOSUB =7 4 h • 'O lz X £WlJ 9 270 

► A U*, 

KEY 7 r>?->a> V r > 9 '> 3 > • ^r — 27i 

KEY LIST -7 r > 2 3 > • A- — 272 

KSAVE, KLOAD 7 7 > 7 > 3 > • ^ — ~7\ 

o- K 273 

SLEEP 274 

WAITb.™ ftfKIEffi, 275 

WAIT r- 9 XhT—9<F>'&.& 276 

LPOS -?') >9 • ^"/ FWilLWtMm 277 

PAGE «&») 278 

BUBR, BUBW U <F>T 9 -fe X 279 

HI S3 3K 

► ?grtgM*fc 

SQR 280 

SIN, COS, TAN SftWISt 28i 

ATN HftiaScifijHt* 282 

ANGLE 283 

EXP tg&IWSc 284 

LOG 10 285 

LOG, §?**!» 286 

ABS 287 

MOD ©]£ 288 

SGN fj^isysc 289 

ROUND Art 280 

FRAC 'MSctBIrtJR i) tb L 291 

MAX, MIN SAffi., ft'J'fit 282 

RND SU&rtS'fe 283 

RANDOMIZE SU&rttofflSSrS: 294 
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FAC fg* 295 

SL%, SR% 2 h 296 

LEN 297 

RIGHT $ l 9 * L 298 

LEFT $ 9 as L 299 

MID $ + |Sj3:=»:5l]<7>« 9 MS L 300 

STRINGS 1 9 IS L 301 

SPC 302 

INSTR X K 9 > 7«®* 303 

TAB En^«rX>«S 304 

TIME $ P#SiJ 306 

DATES Btftt 308 

DAY PiH 310 

INT <g*ML 311 


CINT *£*ScSMt 312 

FIX fSScgli-9- 313 

cdbl 314 

csng 315 

CVI mis=>- K<D!l£»cIt 316 

CVS WaiJn- Kc9*««WtIt 317 

CVD rtglin - KXHSWIffi ScffiHt 318 

MKIS «£8cffiX>|*jS|3=>- Kit 319 

MKS $ - Kit 320 

MKDS K-ft 321 

NORMAL, FIXED, FLOAT 322 

CHRS 7X*- • =>- KcoS^It 323 

ASC TX*- -3-KI t 325 

VAL X’4-'?iJX>*!cfiK-ft 326 

STR $ M«X>3C-75'JIt 327 

HEXS 328 

OCT$ 8It*Sc^X>®«5 329 

CDMS, CDEG 1011, 60It<7)®& 330 




jfcst : *7- SBc^ (o~9) 

i^^ie^- tiT-'T#^ *7-1^ ■if^zf'f "-j^ 1) 
1£-^* 

: BASIC 

m|S ; 1) ^ 77 ^ 7 ^ T'^fcfiKiftn*. 1$5E<7)^7 7UI®5e$ix-r. -HttWfrBUB* 
^IJt^t/7 7^ 7;t*4. 

2, JIS a — K H #lHI#if&(Japanease Industrial Standard CO*&)C «fc ■o'Cfcih Co 
tltZ 3 — K. 


yo : ^5?^ • -fe'v h (tern**) ^p^ir-s. 

10 FOR I=&H20 TO &HF7 STEP20 
20 FOR J=0 TO 20 
30 LPRINT CHR*<I+J>; 

40 NEXT J 
50 LPRINT 
60 NEXT I 
70 END 
n ff m 

! " #*X& ' O *+ , - . /0 1 234 
456789: ; <=>?3ABCDEFGH 
HI JKLMNOPQRSTUVUXYZ C ¥ 

¥ 3 A _ s abcde-f gh i j K 1 mnop 
p q r s t u ywx y z t 1 5 

i inii-H-H r-i ir 

LJ ^ e r j s • 97 f 7 I * 1* 

?*"> 7 \' + 17 ? ) i\t7"VT'7i 6Xtt 

T1370JU'- D97* * = F4=l * 

I »»♦*• 

#1% : PRINT, REM, 5/>T0b 


15 


APL • CPM ^ [p] b. 

PC6 • £ Ip] t . 

TRSi * 15] b. 

MLT * *-%£W\ t. 

CPM * fJ-f-m&iS >f 

•y 

HC * £ 15] t . 

FP1 1 * ’&’%£ 1*1 b. 

M223 •WilaH:. 

SMC * V'OVz £ In] b. 

• FONT RESET <fc ') , U 

aT. 

MZK • 

CBM • t\s\t. 

MZ35 

PC8 * 

XI Hu 

TRS„ -^^Itlnlb. 

MB16 * P'<A'3 ^ Ip] b. 

PC3 • £ Ip] b. 

IF 82 • £ |5] l: . 

IBM55 • 

• 2 '<>f h • =»— K^^C^****. 

• x> i "I. 

PC 100 • IBM55 b Ip] b . 

C180 -^^I^b. 

msx • u-<;u3 £ Ip] b. 

M243 • 

;jp. 

fttw. 


MZB • MZK £ Is] b . 

BUB • £ |5J b. 

FM8 • £ Wit. 

PSP * th £?■/}<&, 

PC88 • p] b. 

N52 • l&'Xfrl tiz’X&M*'. 

. ( .ns 2 > m — £ ft 

• /77^ y ?i£-*7 
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” 

*». 

I 1 ? (fcWtt) ti PRINT it 

2 : (3D>) h n 

3 ; («fe;3D>) li PRINT Xcttzlt LPRINT 3c£&/fT-£-f 

4 , ( a >-?) it PRINT -jCtfzli LPRINT t, 

fcftbtitzfe1&iz&ltxttitj“r&. £tz, W&<F>&M ')l:ffl^ 

5 ” ( rr;u • ? <7 * - h ) (± ( ” ) -6 Z. t £ 

grr. 

6 ’ (T.fX h nv^ ) It REM XCX>iXb ») iCffl ^ h Z. t 

2>. 

ffiln I n -77i^ • ^T-- h * > h(7Ji*-?X) Scff.coxr— h / > h £il*ftb*: \><n. £ 
Stup^ £ t V' 1 . 


-fu? =? ixM : 


10 

LPRINT 

li .p =y II 

20 

LPRINT 

" 33 " 

30 

LPRINT 

" 9f " : LPRINT "an" 

40 

END 


* 

?t m 



99 

33 
9 f 
33 

#fls : PRINT, 


APL 

• ( ’ ) It REM 3c£ 1X1$. 

4‘V\ 

TRSi 

• ^3CilHlb. 

CPM 

• tttmt. 

M 223 

• (?) It PRINT Xccntxm 

tlt% 


• ( ’ ) T-KAT-t^^iJ ht£h. 


• x-f — h / > Hi, 

asctf$nT^$n2). 

• pi itwmmz^m,. 

• ( ’ ) li REM 3c £ 

REM 3COttfflC(i / , / 

2 > 


MZK 

• 7r(iRJgi£ 3.1415927 £ 

mu 1 . 


• ( ’ ) It REM 3c<7>ftfflU£:^£:v\ 

CBM 

• ( ' ) It REM^C<7)lXmiZ 


v\ 

PC8 


TRSu 

• 4^3c £ |WJ b . 

PC3 

• ( : )lt t X. -f — 

h 

h soE^JO (3 


• ( ’ ) -r-PS a, -r- 1, <t -g> . 

• pi immmzmm.. 

• (' ) It REM 3; t 

ftffiUli ( ! ) A<mz.Z>. 


if8 2 -*ictmt. 


u^n,! • m b. 


Cl 80 • ( : ) lz £ <2>-^7U*f-* 7 N -f 

- I' / > h 

( ? ) <i PRINT -£<7)iXm tlt&h 
&*V\ 

( ’ ) fi2ii*fctt£g c ****-. 

PI 


( ’ ) ti REM it £ 
v\ REM <7)f^^gtz(i ( ! ) tfWz. 
2 >. 


M243 

• M223 tmt. 

MZB 

• MZK tmt. 

BUB 

• ( ’ ) It REM 3; t LX 1$ 

mxz 


FM8 


PSP 

• ( • )xm/\,xLttw\ t 

&• 2> . 


• (?) It RPINT£<7M3;ffi££:^& 

v>. tz 

t± L, (P, PR, 

PRI, 

PRIN J: v ■> ) 

xixmx^h. 

PC88 

• tttunt. 

N52 


PC6 

• ^3c^rHjb. 

MLT 


HC 

• - 4 : 3 c mb. 

FP1 1 

• ( ? ) (i PRINT3:<7)ItR 

IZ (i 

^ & V ' . 

• pi itmm&zmm.. 

SMC 

• pi itnmmz&m.. 

• (r > r— 7 j >) it call cr> 

f xm. 


MZ35 

• PC3 <hlH]b. tz L , 

ffi .1 ItT'^I. 


XI Hu • % tS, 7T £ 

tzit pai ( 1 ) i±mm&*&5L-t 
2 ). 


? : ; 


)) 5 


MB16 Wit. 

IBM55 

PC100 -tttmt. 
MSX •♦XiBt. 


* / + 


¥ 




JfcxtlA^lO -A 10 * A A/10 A + 10 A-10 


S5£(*-*> #» >?*&+& Jo# isE# 

#«(*# 

M ¥ 10 % 

I I 

&&&& £«&«! 

HttWk : *l|c^cfJfeofci|[WiR«c^ff -7. 

4$^: l -, (*, /), ( + , -)xhb. 

2 #7 3^4. fcfcfb, # *y 3 
1*3 T'ti -6 . 

3 *73tM5. 

4 Rfe-^ (¥) T'Tjvf-. w > K(i, 

A* ft ( — 32768** 32767 *> IM rtT- frit ft*** +> £ 


z?n?r7J*&i : i&m, ini?, i&s^ttiruep^ 

-r^>. 

10 A=2 

20 LF'R I NT A""* 1 0 ; - A 5 1 0*A ? A / 1 0 
; A+ 1 0 ? A- 1 0 
30 END 


m ft m 

1024 —2 20 .2 12 -8 


#f?s : MOD 


APL • M223 £ |W] b . 


trsi • (!) zm^b. 

( t ) 

• f5^(i M223 tm b. 


CPM 

• tzK TL, «s 

»Ks*l± ( \) £R+s 

Klilzgtt£.ASns. 

M223 . 

• tztz : L, 

(¥) U 

(SEtt 


MZK 

• M223 £[W|b, fcfcfL, 

( t ) zm^b. 

CBM 

• MZK £ Wit. 

PC 8 


TRSii 

• CPM tlHjb. 

PC3 

• M223 £IaJ b. 

IF 82 

• **£|!i|b. fc*TU £E 


cj5^riftftftS*fe1ifcJieg 

!££A£ft, 

1^^<JU3 

• *3C£fW]b. 

C180 

• M223 £[WJb. 

M243 

• M223 t|H]b. 

MZB 

• M223 £ mt. 

BUB 

• *-X£\5\b. 

FM 8 

• IF 82 tlH]b. 


PSP • * * xb «T. 

• *\z±&mkmmt*L. tztfC, 


PC88 

• IF82 £fflb. 

N52 


bmmt, 

% 0, 

0 ftX 

titib 


PC6 

• M223 £ |WJ b. 

MLT 

• IF82 £|W|b. 

HC 

• ^irlHjb. 

FP1 1 


ir^MBffclilWtcafcfta. 

SMC 

• IF82 <h iwj b. 

MZ35 

• ^irlilb. fc*5U ¥ 


XI Hu 

• +*t|s)b. fcfcTU «f 

(&H± 

C7)HI. 

l*./l. -, l+.-l 

MB16 

• «c£|!3b. 

IBM55 

• N52 £\slb. 

PC 100 

• *:££[Hlb. 

MSX 


LXMbtlb. 


Mitt*** < 


> 


M-j£ : A=B AOB AXB A<B A>B 


/J'SV' 

A< = B A=<B A> =B A = > B 


4#» : i (-1 ) Sfclii* (0) t%Z>. 

% \z $mm iz mn £ ti *> . 

3 J: 

4 JttRLfc&fi, MSlIF^TlS^LTlIIS^t LTfflv^ifc 

ffiffj • Djjnc^ nm^. +, <. AND, 

or * if<7>ifc3iiii*H^‘*> * . 


7°p ^ ^ AtflJ : A1 <tA2c7)fit^i:b$5-r^>. 


10 A1 =10 
20 A2-20 

30 IF A 1 =A2 THEN GOTO 60 


40 IF A1<A2 
50 LPRINT"A1 
60 LPRINT"A1 
70 LPRINT"A1 
30 END 
* ft m 

A1 < AS- 


HEN GOTO 70 
> A2" 5 GOTO 30 
= A2" : GOTO 80 
< A2" 


#RB : IF, LET, IfcSi^BT- 


19 - 


MLT 

• ** tmt. 

HC 

• **tmt. 

FP1 1 

• ttt mt. 

SMC 


MZ35 

• tttmt. tzt * u w 

m. i -cm?) tzit ( i ) t &* h . 

XI Hu 


MB16 

• mctmt. 

IBM55 

• t. 

PC100 

• tttm t. 

MSX 



APL 

• ci8o tmt. 


TRSi 

• *-xtmt. tzt' l. 


Xti^nT. 


CPM 

• ttt mt. tzt * u 


X, 

=<, =>ii^pj. 


M223 

• *-xtmt. 


MZK 

• ci8o tmt. 


CBM 

• cpm tmt. 


PC8 



TRSn 



PC3 


M 

(1), 

Vk ( 0 ) C7)ct -5 



if8 2 



\s 



C180 

■ 4=*tPIt. fzt'L. 

& 

W:t LXW*t> 


M243 

• **t mt. 


MZB 

• C180 tiwjb. 


BUB 

• **t mt. 


FM8 



PSP 

• PC3 tmt. 


PC88 



N52 

• tttmt. 



pcs 
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< > 


+ = 


J&ifc : “3'^r”+E$ “^”<“3=1 


iS*S stun 

Hfil : 

4#^s4 : 1 Jtfx (= < >) lt^fo-tWT 

X^— • =7— K^coJtl# £*fro . i) b t<t(7)TX^- • r/— K 
*^L(tn.(iT, ^“oco^^tjti^b < *9, iLTx*- 
. =j— /h§v>3— K*>fc^a<&1i£ftlz/h3v'£ 
£tl&. tfz, 

2 *^?ij<7)gff^<50^e ii§:Rfc£ io. 

3 -X3r?\\$:T )V~7 r^<'y MMtcfc t^^tz >) , 

• > >^x + -«a-K (ASCII 3- K) T^r^vK «c^. ^£8 ( 7 t' v h 

+ '>*'J-f 4 1 tr-y h ) fcf x h • 3— K. 


y o v a^ij : ei$ t E2$ s-iets. 

10 El$= " 99 " 

20 E2$="3D" 

30 E3*=E1*+E2* 

40 LPRINT E3* 

50 END 


m ft m 

9933 


#bb : mmm± 


APL 


TRSi 

• ^*^1^11:. 

CPM 


M223 


MZK ■ iteii^oT. 

• tktmmiA ( = > 

CBM 

• *:fc£|s]b. 

PC 8 


TRSn 

• *:fc*lslb. 

PC3 

• JIS ZD 

- KTifctt-r*. 

IF 82 


3 

• **£|sib. 

ci so • ii*g(± (&) zm^'6. 

crt v—nx'itm. 

■t" & . 

M243 

• £ fHj b . 

MZB -MZK^ffil:. fcrtfU 

Jt «c -Cfi cog £ £ n 

BUB 

• **£|5jb. 

FM 8 


PSP • *:fc£|B]b. fcfcfU jg 

&2tltz -X^\\ £ J£$x1 " S 

PC 88 

•ttt iwj b . 


N52 -JIS3-K (fit* t. m 
^lirtSISa- K) .T'itSfi - 4. 


PC6 

■ttkmt. 


MLT 

• <h (hJ b . 


HC 

• iw] b. 


FP1 1 

• ttt 153b. 


SMC 

• *:fc£|5]b. 


MZ35 



XI Hu -*SCt fWJ b . 

• x h »j > ^ ( ”” 

) (i, ^<50^; 

MB16 

• fw] b. 


IBM55 

• Jfcttli Jis 
- K 2) t*4tt. 

3 — KiJcfcr/ 

PC100 

• N52 <h [WJ b. 


MSX 

• *3:£|5Jb. 
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HISS* NOT AND OR XOR IMP EQV 




: NOT A A AND B A OR B 


S ^ ftSfg 

A XOR B A IMP 


mm a 

B A EQV 


mm 

&Wl 


h' *: 

h. 

1 

2 


SMMflWM] & # 

•X h Wfe*?’T— fz 0 , 


iwj m 

»< ^bcofflffiZffl^fz 9 i~ 


— m^ppr-a, mmmmiJtffi • M&iax<?>&?fthn*. 
mmm& s ?-ii*'<9> K£i 6 tr*x 

ifc#$: £ fr -? . 3*ifciSJHi;Ltf> 3ga§c 

tzttl, tr-y h ~£lZtflfcl?mif2tL&. 


A B 

NOT A 

A AND B 

A OR B 

A XOR B 

A IMP B 

A EQV B 

1 1 

0 

1 

1 

0 

1 

1 

1 0 

0 

0 

1 

1 

0 

0 

0 1 

1 

0 

1 

1 

1 

0 

0 0 

1 

0 

0 

0 

1 

1 


IF ^t^o, £ # & £'(cll f ;b;h.6. 

XOR (i, A AND NOT B OR NOT A AND B, IMP (±, 
NOT A OR B, EQV fi, A AND B OR NOT A AND NOT 
B -cfWC£ s. 


* 100002 (10 m&T 16) t. Hills (10 3t$cV63)(D 

* IM(AND) 

100002 
AND IIIII2 

100002 aoaiftrie) 


10 

A 1 = 1 6 

20 

A2=63 

30 

B=A1 AND 

40 

LPRINT B 

50 

END 

* 

ft m 


16 


#M : ip 


APL 

PC3 £W\t. 

TRSi 

«*r. 

AND, OR, NOT <7)<&4«£ 

CPM 

tttWlt. 

M223 
@ OR @ 
NOT @ 

@ AND @ £ tzlt AND, 
£fzl£ OR, @ XOR 
C7)<^. 

mzk -mmmttbtx and 
( 2 *, 0Rli + (7)^. 

CBM 

TRSi tmt. 

PC 8 


TRSn • 

*-JCtmt. 

PC3 

AND, OR, NOT 

IF 82 

*ictmt. 

ls*<Jls 3 

ttt Wt. 

C180 • AND% ( ’007F ’, 

’ 12C6 ’ ), EOR% ( ’007F’, 
’1234’), NOT% (’0000’), OR% 
(’OOFF’, ’1234’) 

• b' x h %im<7)fzdblz, SBIT%, 
RBIT%, BIT, SL%, SR% # 

M243 

M223 ^IWJb. 

MZB 

MZK tlHlb. 

BUB 

tttmt. 

FM 8 

**t\ mt. 

PSP 


PC 88 

*-xtmt. 


N52 • NOT, AND, OR, XOR 

" I. 


PC 6 

- 

MLT 

• « i Wit. 

HC 

- ^ tmt. 

FP1 1 

• N 52 tmt. 

SMC 

• N52 tmt. 

MZ35 

• PC3 tw. It. 

XI Hu 

• tttwit. 

MB1 6 

• ^*ar|SJt. 

IBM55 


PC100 


MSX 

* £ In] t . 


SMii3£» (*<& 1) 


M&. : 9% &H8F &0173 


*®&nr IS^SeS” «»&uT 

10itSEt>t: 8 it^£$c 2) 

mm : -32768*" ^32767 JWi. 

«# : 1 10it^&<± 0 t&'A, 9 £ X'?)%c'-pt + , - '& 

2 16it^$fc(± 0 9 ^;ft_ 

+ , i!u(-16ii5E£$:£^i- (&H) £#lt 

3 8 it^&(2 0 frio 7 £ X'<7 )%l^£ + , ml 

K8iiSE&£7jrf (&) i fcfi (&0) 

4 £ £{i-#fta££l-6. 

^ In' * n 16ii3& 16Mfcfe{c iotf? il/.;&Wi. 0 j&* t? 9 £ -CtfO&'p £ A ?5* 

^>F| r*^) «*'-?»- J: oTi-'<T<7)»;^lK'r-^fcfe. 10it&cO27(il6il&co l A 
T'«f> ■£> . 

21 8 it& 8 it&lc X ot*SK4 gdifi. 8 jti&T-<±, 8 £ #{£ U 1 ffi±^ 

0 2iffi&. 

3, JIS16it5£» JIS16iin- K£3 H-Se& 

4, jise^^» jis e.£=»— k **-*-£» 


zfu y=7j*m : ioit£$cio t. i6B^:^&H io aoit&rie) sit 
&0 10 (loiter 8) 

10 LPR I N T 105 ?<H 1 0 ? &0 1 0 
20 END 


m ff m 

10 16 8 


#ff* : -fffWgggj^lSc 


»> Or 


APL • 8 it, 16it£3&(J7^7. 
• 32767^32767. 


TRSi 

• *-*:£ mt. 

CPM 


M223 

“T. 

• 8 it, 16it^^(i^«r. 

MZK • 8 it5g*tlJ7Fnr. 

• i6ii5E»ii ($) zftifxmm.. 

CBM 

8 it, 16it^l&(±7^. 

PC8 


TRSn 


PC3 • 8itS£*Mi^nr. 

• i6 i (&) &{ mrmm. 

• *&mcr>mmt± -32767^^32767. 

IF82 


1^*<J 1*3 


C180 • 8 itTE&li^"!. 

• 10it5E$fct±%£ott*V'. 

• ( ’ )T7§s^7 4ffi£T'<m6ii^& 

«r. 

M243 

M223 

MZB 

MZK t mt. 

BUB 

*-Xt \s)t. 

FM8 



PSP • 8 it5e$fete7^. 

• i6it^i&(i ( $ ) 
h. 

• &£fc$&0 li-9999fr£o 9999. 


PC88 -tttfflt. 


N52 • Sit^&liT^T. 

• 16it5e&(i (&) 


PC 6 

• 8it^t5[(i^' 5 r. 

MLT • 8it5E&fi (&) CDbt 

iz 0 

• 2i M&wt (&) Srfttt- cmm. 

HC 


fpi 1 • 8it^^c(i (&) <nht 

co^-m 

SMC 


MZ35 

olt 6 

• 8 itfiT'TT, 16it(i& £ 

XI Hu • 8 mfc&tt (&) <?)*>£ 

(c O 

• 2ii5£fBc(i (&B) £itlfxm$l 
i"6. 

MB16 

• **£131;. 

IBM55 • JlSieit^ 1 ’, 

JIS E *5£& 2) **«*. 6 . ml^fi 
(& J ) l&mit (&K) fcffrttT* 

mi"6. 

PC 100 

• IBM55 tClSJb. 

MSX 

~P t , 
"7 6 . 

• 2it5e&li, 
Bute ( & b ) 




: 3 . 14 ! 1.234B5 

I I . 

^B&ni 


!&Wl: 1 (!) fcftlt* i *** 

2 7fiT<50fSJ^'Ct&#rt$nENt£A$ii'C 6 fir £ 

T**3j*SfL*. 'T4-^^^iJlfT^c 3) (i6fif'C'#>^. 

3 jE££(iH<05E$t (0£^t>') T% 'J'$C.£ 

&g|$) iztft^X, ^“E”, ^L-CWHg- (*< -Cfc-ar) 

-38*>^+38 

£ -C"C'^5 «£> . 

m|E • ifttt&fT'? t £ Stlifi*Jfc:'J'*fc.&£8iflB'C& &. ftffi£rflf-*/-8r>. 

&gfcg iS, 1 St^'+'fw AiVC, iftWfcfr-? . 

2, @5£'J v Bi/SSJ5fc 

^aMfifK^ramso «ffl?r<!fe, 

4> ^-r u? h • *— K ±o(ti“, 

-r <*C*fT ztib( K • •* — K£ t v>-5 ). 0 -/ 

o/7l - K. 


7’p : itMtaes^tt^-A* u, 


10 

INPUT 

A 

20 

PRINT 

A 

30 

INPUT 

A 

40 

PRINT 

A 

50 

END 



#HB : 


H fr tfJ 

? 123456 
123456 
? 123456789 
1. 23457E+08 


23 


APL -^r«WfT#cti9«i. 

• *&«fe3B*>i£Hl±-39j&»fc38. 


TRSi 

• mm\ 

lcr>mmi± -39*‘£38. 

CPM 

• [5] b. 

M223 


• *&afeW<7>$Mfi-78*‘k75. 

MZK 

• #$»fir»l± 8tfr. 

• #tt»*>IEHIi-l8**fcl8. 

CBM 

• ^»fir»!ilO«f. 

• flt&8&*>l£fflfi-39j&»£>38. 

PC8 



N52 -^Tt^IWlb. 


PC6 • %«Mfi$&ti9lfr. 

• ^&»*>*Mli--38j&‘k38. 


MLT • ^*>f U ? h * X— K 4) »# 

flt&aMZP) 

#;b&. 


HC • «*fctt*>IBH«:-38j&*fc 
35. 


FP1 1 • 9 fir. 

iiS . 

• fit MSOf&ffiJi -99^99. 


SMC • 

• -m^^co^SUi-63^^63. 


TRSn 

■ #$MtSc(± 7 «r . 

• li -39** 38. 

PC3 

• ^fiT$C(±12fiT. 

• i&SSc3IS^)l£ffl*±-99*‘fe99. 

IF82 

• ***fflb. 

U' A;p3 

• *Sck Wit. 

C180 

• W«Mfi*fci5tir. 

• *&*S^flS*>l£fflli-793&‘fc75. 

M243 

• M223 tWit. 

MZB 


• *&*fcSB<0|£H(±-48j&‘k78. 

BUB 

• t IhJ b . 

FM8 

• ttt Wit. 

PSP 

• W«Mfr*fcfi8«r. 

• mm 

B<7>f£ffl»i-62j&‘£>62. 


PC88 • « £ IS] b . 


MZ35 

• PC3 £ fpJ b . 

XI Hu 


MB16 

• TRSn iWb. 

IBM55 


iff -cf&*rt $ n 7 iff -e^ $ n & . 

• *&*fcfi&*>i&H!i-39j&>fc38. 

PC100 

62. 

• ^*&«Oi£fflW:-62:f&»fc 

MSX 

• »(* 6 ffi. 

• *&Sfc»*>l£HW:-64j&‘£>63. 


(*<7> 3) 


Mit : 3.14159265358979 # 1.234567890D12 

U . v , 


QrfWi : 1 ZltWz (#) ^ottTESU-r^ 

3 g]5E/M& t &%(* in] t xb & &, 7 

tfmT<7) t£li (#) £ott£lt*l(±'£:^^. 

4 t mm± wit xb & *< *&»®<7)( e ) 

(D) £1£;b£rtt*U2r£r£>S:v\ 

5 & t 

6 SIN &* Kti<F>%Lt #fj?/& 




10 

INPUT 

A# 

20 

PRINT 

A# 

30 

INPUT 

A# 

40 

PRINT 

A# 

50 

END 


* 

n ®j 



? 1234567890123456 
1234567890123456 
? 1234567890123456789 
1. 234567890 123457D+ 18 


»fig : 


APL 

— 

TRSi 

• ^m^i6m£ x-<n%L. 

CPM 

• IF82 twit. 


M223 • 'I2'T ( # ) fcftltfrltii 

«*&•£> £ 1 ,*. 

• &%&{* (E) £1£-5. 


MZK — 


cbm • mmwmmu -39^ ^ 

+ 38. 

• 9fiT£ X *%t7K. 


PC8 • 


TRSn • £ T'<7)3&. 


PC3 


IF82 • fc*5L, 16 


• IF82 tWi t. 


C180 


M243 • M223 b 1 h] b. 


MZB • 3S*fc*£H± 1 E — 48 frt, 
± 9. 999999999999999 E + 78 £ X 
cr> BCD 


BUB -tttWit. 


FM8 • Wit. tzt* b, 17 


psp • 9 tfm±<7)%c. 

• uffixfcwz turn t xmyn. 

• — 62£‘ ^62£ T\ 


PC88 

• IF82 £P0b. 

N52 

• FM8 tWit. 

PC6 

- 

MLT 

• IF82 twit. 

HC 

• PC88 tWit. 

FP1 1 

ft. 

• #£ijff?3&rtaO;^19^ 


• i9tfj«7)»j^*ci&irt$ii, i6fiT£-e 

m7jk. 

• *£&g|$(± (E) £ te-5. 

fife, 

• (&) SrftSei“S^ J: »), 
ffT3&a*20~29^fg*Jm/g^3&£ 
b-C^ffloT. 


SMC 

- 

MZ35 

— 

XI Hu 

• %t%m<r>mm\t- 38-38. 

MB1 6 

• |Hlb. 

IBM55 

• «:£|S|b. 

PC100 • 14ffi»/gl4«T***. 

• j%&m7fkx'i t wi b < e $• 

MSX 

• 14tff£X<X>&. 


: BASIC 

4#^ : i m± 255 ic^tx-<mnmPr (”) 


:/ □ *f - 7 A-fjiJ : 

10 LPRINT ,l ?7 ,, ; ,, 3]" 
20 END 


H ft W 

^733 


#JR : $c%c 
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APL -**£|5]b. 


TRSi 

• **& Kb. 

CPM 

• **£fH]b. 

M223 • ( ’ ) J: 

• Wclzg: 249 

MZK 

• ^*£1*1 b. 

CBM 

• ** £ rsj b . 

PC8 

• ^*# BS 

TRSu 

• tttfflt. 

PC3 

• ( ’ ) -CH/LT'*, J: v\ 

IF82 

• strait. 

\s ^<)\f3 

• ** £ I®0 b . 

C180 

J:v'. 


M243 

• M223 i[H]b. 

MZB 

• **£|H]b. 

BUB 

• **£Hgb. 

FM8 

• ^*if5]b. 

PSP • ( ’ ) T"fi3A.-ei ct^. 

• S*®tiii#32. tzK L, DIM* 

PC88 

• ^*^:I^b. 

N52 

• 245 £ T*. 

PC6 

• **£|5]b. 


MLT • C3= 


%t(?) ±m±242~252 £ X^frh . 


HC 

• **£|s]b. 

FP1 1 

• 4^* <*: IU b . 

SMC 

• ^*^|W]b. 

MZ35 

• PC3 tmt. 

XI Hu 

• ^*^:fH]b. 

MB1 6 


IBM55 

• **£lH]b. 

pcioo • ie-^. 

MSX 
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t : E$ M% A ! c# 

* 3 = ®«S"I 

#«**» 

: BASIC Wf'a 7'?M>^X*i£ioiX&i\£L&fa$i’t2>*jjbpJT. 

* 1 ^Sfe£lifST:fc^-C<>J&* 3 ;b$rv*j&«, f^ 2 t?^i;J:ot 
TUSiJ£ft&. 

^^^(iM'( 4 1 ) 35 c^($, %, T, # ) eo^n-Ct «r. 

3 


( * J 14 X~P ij< m »& £ tL tz 

ffiln i ,, *tt(7hijta-l>) * SO (, COSO#-*- & *${& • t£K. 

2, T**Jl5 BASIC T, -eco^itfcii «fc V'm&fi< , &.(ihh,iiX'''Z> tT3^. 


yny-zr^ffl : x^mmmcx^A tiT&. 


10 

INPUT 

E* 

20 

PRINT 

E$ 

30 

END 


m & 

m 



? Wltfjj^ii 
WltflJf'tt:} 


rmx^ 

a- & 

$ 


% 

K&^-Sc 

$d®» 

!<*> 

#«&$» 

# 



#flg : DEFINT, DEFSTR, DEFSNG, DEFDBL 


APL • ttmk, *g«* [OA 

nj. 

• ’£&£fi®* 238 :*:^. 5 fc 9 Ki 3 ; 
X^X^£O t 

tz t* L , © *7J <7> 2 :£=£ <7) * -e^J SlJ . 


TRSi 

• *xt mt. 

CPM 

• *Xt\z]t. 

M223 

• &&&U2X¥£X\ ft 

mii^X^, 2^0ti»^:-c4rtt 

tlli'Z 

b & V ' . 

• ^§lf£:£3=(i $ £ #<7>*fe*fflnX. 

MZK 

• J51 &X¥%, ! , # (i^F 

■SX. 


CBM 


^■CflJglJ. 

• ! , # ii^Rx. JgttjfcS 2 

%Lt% 

h. 

PC8 

• ^x^m. 

TRSi, 

• *xt mt. 


PC3 • yfe 

x^x-mm. 


X^%ccr>X^%t< 7 )±mi± 16 X¥. 

! fi^RX. 


if 8 2 • *x£mt. tzt* l, ^ 
40 X^P. TfeaKi^^^, 
£ t >J * K ( . ) T* 

f£ 9 L 


SfcsM^ BASIC <7)^#jgfi-C&o 
TfiS: ^ £rv\ *i£fL, 


x^+anx^wm. 


C180 • *«[««** 158 3t^. 

TfeaKi^^-^^, IZfrltmifc* 

xx^x-mm.. 

• JRtt*^: ! , # (i^RX. %f± 2 it 


M243 • M223 2rpJt. 


MZ3 • MZK <*: IhJ b . 


BUB • ^^(±40*^1^^ 
X^ttzli&^X-mWL. 40 X ^1 
±co t z ttftmwox^frGWj. 

• ftSRItmc&TtetZ. 


Xtomz< 7 >i><t>£i%^xii ft b i* 


FM8 

u^<;U3 i: IW] b. 

PSP 


*a Hl±, 

3S H*>li?£SS; 

3S'Jn 


PC88 • m$k&tiM±40X3 : . ft 

') t k(. ^ 60 -r-c-c^ 

TIJSIJ1-&. 

J: t\ 


N52 

• T i #jig ; e< 7 )£>c7)£f£ 0 'T 

li =Sc 

^ J: v^. 


PC6 

• $C$k%lt&± 71X^. 

• m&x^%, /, # (i^pnx. 

MLT 

• PC88 t mt. 

HC 

• u^;U3 <h fW] b . 

FP1 1 

• ^'i$c^(iS^; 255 X'P. 






• &&A,~ct± 
(✓'I 

• mifeSc^ (&) 

tts-t. 


SMC 

• PC88 twit, -tit: fL, 

255 *=£. 

• r>r 

— 7 

MZ35 

• Sg*fcSJli%, %gfc£!(2#. 


(i $ T% ©-C-f-^SrttA'C 

XI Hu 


li V'lt ^rv'. 

MB1 6 


0 JU^bT. 

IBM55 

• bub tmt. 

PC100 

• PC88 tcig t. 

MSX 

• tttmt. tzt* L, ^ 
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"7 


: 50 * “ EXIT ” : PRINT “ END ” 


-X't-fcVk. &«T 

I 0 tz, £bij ( & . 

2 In] b 

3 &^btf>tT#-^*{i 

;b£'^£rv'£L 7D-f^. 

— h 4>^o(t^^<7)^fjij i, i, 

fv< 7 r 2) (cM^JT-^^. 

4 T#J§§T'& J: 

I 9 '<*'*) frtt^coKh') iz'ilfhtiZ, *-/-Se&(- J:*fr^)«atf. 

2 't'<V? JELV'*5^£f3£ i T't--fT -3 VO r?A<a«UEfls*<Oi fc. 


?7AJI] : 


10 

20 

30 

40 

50 

60 


70 

SO 

90 

100 


♦ "BEGIN" : INPUT A? B? C 
II = B :+: E — 4 -+: tt : + : C 

IF A=Q THEN GO TO "END" 

PR I NT A ; " X A 2+ " ; B ; " N+ " ; C ; " =0 " , 

IF DC 0 THEN GO TD "COMPLEX" 

PRINT "REAL "Sf-B-SQR ( D ))•••'( 2 : + : A ) 

? ( -B+SQR C D j V( 2+ A 'i 
GO TO "BEGIN" 

i+ " COMPLEX " : PR I NT "COMPLEX? INPUT AGAIN n 1 
‘ GO TO "BEGIN" 

!♦" END "SEND 


m ft m 


2 X--2+ 3 X+-9 =0 REAL -3 1.5 

1 X‘"2+ 1 X+ 5 =0 COMPLEX? INPUT AGAIN !! 


#fSi : GOTO, ON GOTO 


APL — 


TRS i — 

CPM — 

M223 — 

MZK — 

CBM — 

PC 8 — 

TRSn — 

PC3 • 

IF 82 — 

3 — 

Cl 80 — 

M243 — 

MZB — 

BUB — 

FM 8 — 

PSP — 


PC 88 50 *EXIT: PRINT 
“END” 

GOTO * EXIT. 

t° >J Jr K ( . ) 
Zt*<-C£4>. ±-JC r ^ 
E$>iJ(i£:v\ 

•BASIC x-</u£t- 

• lfr£'' 255 :£ 

t'< bt 


i> J: v\ 

7'<)\s&<7)'l$.<7) ( : ) fi, X^— 

X X’ 1) <£ v ' . 

LIST =j-^> DELETE 3-t* 
> K*>3I#£ Ltt7bi tt'l 
<6. 

LIST* A — * B 


N52 

- 

PC 6 

- 

MLT 

— 

HC 

— 

FP1 1 

- 

SMC 

• PC88 tfflt. 

MZ35 

• **i:EIb. 

XI Hu LABEL “EXIT” 

• 255^£T'0:fc^?IJ. 

• m— -7'ov&t><hh*%&, mmz 

tax ztz i& . 

MB1 6 

- 

IBM55 

- 

PC100 

tzK TL, 

MSX 

_ 


B1 (10, 20) 

ffitp *£■& • 

: Ip) Z. t <r>X^ 2>\&<7)&£ '), tfzlt^i. 

•&'&: 1 Wltti^m^h. 

2 %<F>%£?\\cr)>X7Ct IpJ 

3 i&^TI&liO. 

4 •) . ^C7Cct)^:^ £ li 1 b<7)A.U 

5 DIM If4‘L T'ffl v ' £ t* (i , jJS^tilOi*C. 


: B ( 100 ) 


3 / P *f ~7 .Z*0lj I SS^iJ A (10) trsimL), M^r ktl U7c?&, 


10 

DIM A ( 10) 


20 

FOR 1=1 TO 

10 

30 

A ( I ) =1 


40 

NEXT I 


50 

FOR 1=1 TO 

10 

60 

LPRINT A ( I ) 

• 

Jl 

70 

NEXT I 


80 

END 


3* 

ff m 



123456789 1C 


#rb : dim 


- 29 - 


APL • ^7C(i88^7C^ *C. 


TRSi • ^SCtWlt. 


CPM • tWlt. 


M223 • «£SB9IJ*>5fc7Cli 2 *tc 

£ T. 9IJ £ & ^ -t 'J ^ 

i^soTI&li 0 . 

• *^ga?iJco^7Cl± 1 'kictX'. tr 
^iJco^(i255^t'. 


MZK 

• #tft\t 2 ^7C i X. fc^P- 

It 0 ^ 

h 255 £ X. 

• #®5 (i^*T. 

CBM 

• ^7C(i 255 Sfc7ci'C. 

^<7)±mi 32767. 

PC 8 


TRSn 

• PC3 tlsll:. 

PC3 


IF 82 

• *7tli 255 ^7Ci-C. & 

^<7>_L Wt 32767. 


• t. 

C180 

• ^C7C(± 2'kjt£X. 


M243 

• M223 twit. 

MZB 

• MZK tWlt. 

BUB 

• 2£T5c£|nl b. 

FM 8 

• ^-JCtWlt. tzK L, ^ 

^<r>±M\t. WM^X 32766. 

PSP 

• ^7C{±15^7C^ *C. 


PC 88 

• *tg(± 255 ^7C£ T. 

N52 

• *7cfi 3 <fc7ci -C. 

• zSs^<7)U&(i 32767. 

PC 6 

• 'Kit It 3 ^TCit'. 

• i^(± lfrh 2447 £ “C. 

MLT 

• CBM tWlt. 

HC 

•tttWlt. 


fpi 1 • 

7€t X. 


SMC 

• *7Cl±10*7C£-t\ 

MZ35 • tMc t If! t . tzt* L, ^ 

fa 3 <7)TRRti 1 , *$^5 

XI Hu • 'kit (1255^76 £ X. 

^f±S*255l®, _hPJI(±32767. 

MB1 6 

• tttwi t. 

IBM55 

• CBM tWlt. 

PC100 

• PC88 tWlt. 

MSX 

• PC88 tWlt. 
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mmm 


Bit : M% =12.34 A = 12% C#= A 

' 1 1 ( 

: defrStzjc&tT, 

1~&. 

* 1 £> & fc2K^>&fitg£&icSiJ ») 

«fc o Xtim 2 titzmiz^c&LxmftZ ti& 

2 &mtfziitfcmm& 2) <r>7t'<7> K 3) ti 

( M: i> M/^c 7 )ii5^'‘ 7 > K ) Iz % h z_ £> ti h 

rnj^fc, i&. 

tlh . 

4 iMM'tt * M5ttr-& $ tLfc&m&S&ktz m&iz it, 

5 fgpf*^j&<l|£f8& lz%£j&$ti& t%&it , Mto <r> 7 fir @ £ fc (, 

«o* <3 fra&. 

6 ifci). 



m m. m 


fg»J£3!! 

& m m 


(1) 

(2) 

mmm. m 

(3) 


(4) 

i% m m m 

(5) 

(6) 



(l)£(2)<O*£!^(zfi,0.999-> 1 , — 0.01— ► 0 £0 J: ? lz Jg&ffc; £ ft 
&. (6)*>$&^fi t 0. 999-*0. 99899995326995585 <r> t 7 tzm&fi* 

As^tai. 

2l »a*»: ,;wa.iii(ij-f'- (not, and, or 4- 1) tw^x. z<r>i#&?-<r>j&mi-'(£ 

oti t'y h rtjc*j|:i-s - t. 

**’''**• Kux^Jtft ::tli^t«[|:ffl 

V- ' JBcftftco d £ XhZ> . 

"**** »»«**-<+. -, *. / /m) ztii-,xwmmn.t;fti z t. 


fP^'S'-S. 

10 AX=12. 56 
20 LF’RINT AX 
30 END 

3S ?T flj 

12 


#flg : IgiScSj^it ^fitgeg?^, §p £ gr 




APL • 'J' 

A% 

= - 0.01 *C(i - 1 £ ti h <r> -C&.M. 


TRSi • OGO^C^fit 

J£&ct)£ 

• < , -32768 fr 
io 32767 <7>mm ft* 

• _h8E<7)v^-rii'rt<i:v^^i±SS«k 


CPM 

• t. 

M223 


&li DCML (X). 


nT FLOT (X#). 

MZK 

— 

CBM 


PC 8 

• *±mm. 

TRSii 

• akHLra-c*iv^»*6^ife 

far. 

PC3 

• mm%l MODIFY, 

CDMS, CDEG (Z J: o ”CtT ? . 

IF 82 

• tzti t, & 


&(3 : 


{iEg^5EA$n^>. 

®-c;u 3 • 


tshlz 

t, (Tj^^rsb. 

C180 

•*fc1itltfl*fc FIX%£ FLT 

£ J: 

0 Tff-7 . 


M243 • M223 £: IWJ t. 


MZB — 


BUB 

• *:StiElt. tzti L. » 


FM 8 

• 1 F 82 tra t. 

PSP 

- 

PC 88 

• tztz fL, ^ 



N52 


StJSflKK-CIi, *-• «?v KliSE» 

U £ #1 3 *t®**>»**'# fe ti . 

PC 6 

- 

MLT 

• PC 88 fc 1WJ L . 

HC 


FP1 1 


SMC 

• PC 88 i: I^J b . tztz fL, 


MZ35 


XI Hu 

• i: I?] b . 

MB1 6 

• PC 88 tfflt. 

IBM55 

• PC 88 tlWJb. 

PCI 00 

• pcss tmt. 

MSX 

• t l«] L . 
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i; — > • x^r-r 


mm : tj — vsisfm*— is J:t/Hft3- — :ii:j:'), I I 

4$« : A ? »J — > • x-tV J: 0 A tl • lift L £{Ij®_h<7)|*j^(2 

C RETURN"! ^r — £ Aft f±&£>£:i\ 

1 t)—vjv<r>& m 

(a) HI. QD, 0, B ^tL^Egox)^-(i, 

— V ;u £ l g -fr & . 

'(b)(CTL)-(N) Z<t)%- — (i, t — V )V$:'Jz<r)m<r)\tLW.t X'&MZ 
tt%>. 

(c)CCTL)-(B]>ZX >^— * — V)\s£M(t>m<t>%:m£ X 

2 WAt&m 

(a) (lNS) ifcli CCTLl -fRl * - y ;i,&m <n^.\m 

£ # A-r & ^ j a* X'$z>(t> — v t± t&a* & t * ) . 

(b) (DEL) £ CPTfD -fH] — # — V ;M£S £;£$ ilj 

(a) (CTL)- S -<X>3r— £# — y L J: 9 ttSfeltA 

^c7)v°o /7 Afa-X)# — y ;uf£®£»^f£ 

®j M <7) ;A X) lz 1 - . 

(b) iliD0±-r'ii^c L 2 ff £ 1 ffX>- 7 °o ^'7 AiCt^ lz (i, £ 
Ttf-V;u£^<7)fr<7)l #Sf£fcf£tfrL, 

^air, ^ ^<7):£^£ Ajji~z>. ZtlX'TCCO 2 

'XT li tfamfolz t± l tr £ i* & . 

fflln I u x^ ij — > • if-f * ifc&fnt'i •/7'f > • 

XT' 4 <fc •) 7o X-7 

2) t— Y • 'J tf— h *- £ W L «Jt Si. ffiF* fc # $4-<T{, Uli&fiijU |S )-Tc¥ 
/) ( A*$nstsi. 


h- $J : yo^^/*rpcr>io&(7)ffiV&miE-?&. 


list 

10 ORINT A 
20 PRINT B 
30 END 
0k| 

list 10-10 
10 PRINT A 
list 

10 PRINT A 
20 PRINT B 
30 END 
0k| 


oy pn— jojSc^ 


'j - > • Xt-V 


A PL • i] — VJWfmti, ±lt 
(ESC)-ffi . Tit (El5C) -[M), £- 
!t (ESC )-l, £(i (ESC) -[Jl. 

^ 7 " 4 b b<7)fr#-^ 

<7)p/r\ t — V/u£ &Mb L fltSiE L , 
jfc ^gQfr T*tJ — V 
L (CR) £ AtJ-f &. 


TRSi — 


CPM — 


M223 • 1 Xx— h / > h c7)^X 

y >J — > • 3-T A b «T. 


MZK • i] — V/M&tbtt, t> — 
V ;u - — 

• (W)*--£A:ft LfrltftltAfl- 
ilU:^lit^iifrf)fr^. 


CBM • i] — V/W&W; t 
( CRSR— > ) . ( CRSR+- ), 
(CRSR t ) , ( CRSR j ) , 

• ( INST ) * — £fflV' 


PC 8 • 

• S^gEl»fcfM&*-SI&li* — #- 
K<7)*- b • ') («>L 

HftltitfBO £#«btcfSffi-C£ 


TRSn — 

PC3 

^A h L 

ItfCLl. 

m, 0 . 0 . (ins). 

(DEL) *■ — -CJg&'Br. 

IF 82 

*sct mt. 

lx^c;u 3 • 



C180 • # — y/wo*£i& it (2 

(7), 0, B^r — 


t^Ali Qv)*-, 
it (V) * — 

(NL) *-£AtjLfrlt4x(±'AtJ- 
lifr £frv'. 


M243 -M223 tfl]b. 


MZB -MZKtlWlt. titjfL, 

# — y;Wi(t], 0 , 0 , 0 *- 

£ t- b • v t°- b#-£ 

(SHIFT) £ffl L, V 

^ • *-£«■-*-. 


BUB • *7 — v ;uy>*£i&li(t}, (J), 
0, 0*-£fflV'£. 

• Alt flNS) 

l&li (DEL) 3- — £fflv>*. 


FM 8 • # — V;K7)f£t&|i=7 > b 
o — ;u <7) # as . 

• (INS) *-£ljg#1-£*l:: 
(INS) 

A«T#g. 


PSP * A*Lt:ff^jEl±0, 
0, (DEL) , (INS) , (CLS) 
-let 0 "ThE. 


PC 88 • (INS) * — 1± FM 8 t 

mt. 


N52 • ij — v )v$:'X<F>?k' m<n 

m t Ttm $ -± h iz it , 

(CTL) -R • (CTL) -R £^t. 

• 0 (t # — V 7-7 

Afry>;fc9llef£$Jj £-£, £>L# — 

y )\st<-fx3 7 ? j+Tr^ytMiz h z> 

£ # lcfl»3ttfcii#tt — ?m< 7)ta 

y* x a *r x> 7 feaMie & . 

• 0 3- — It 7 — y yuSr-A<7)7 s o y'y 

A^<7)3fcggief££fr£-££. 

• 0 *— it*— y;w£BM<7);£JiPS 

•Gffi it*— y;^AStr^) 
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£ * X»^T X)^;aMie f£«b £ -tb & . 


PC 6 • 1 (b) li^RT, &tt>'3 
(a) ItX'f y • y 4 - b\ 


mlt •§:A' 7 y.^-x. 

• *- b • >J t°- Mt. 

• ( ERASE LINE ) : 1 fr?B±. 

• 1 (b), 2 (b), 3 (a) UftT 

1Ct\ Hit. 


hc • ti — y Ji'&mit 0 , 0 , 

(SHIFT) +g] , (SHIFT) + TO X) 
EBoT'^Tt . 

• lyftieov^rii, 3 >Ed-;^ 


fpi i • (del D fr— -eita-y 


SMC • ( RUB OUT ) t (BS), 

B, 0 , m, rn» (home) , 

(CLS) , (DEL), (Ins) , 
(SHIFT) , (CTL) {e t ») fl^JEi" 
h. 


MZ35 • tj — '/ )\s<r>&ttoitti — y 
;u • ^ — Srfflv^. 

• ^4 $ Ait (Ins) ^r— , 

Rfeli (DEL) ^-^ffly^. 


XI Hu • >Xmtm(CTT) + [F], 

^txj^^Gctl) + 0, y y'13:^ 
(CTL) + (g 

• #Al± (CTL) + TO T - INS ^e— K 
lefrO, <fcle (CTL) + TO ^AtJ 
2tlZ> £T*n?f2tlZ. 

• Hr— b • <J L°—H± REPEAT OFF 
-CJHI&, ON T-m-jf. 

• click on T-y 'I y y^^ttJi". 

OFF lt±y>S. 


MB16 • ^ -y;u^ ii? (CTL) + 

(F) ttelt (SHIFT) + 0 % 'Wn 

m,m<7)mit*-xt (shift) +r, 


aiJBfelt ^jt (DEL) 
le a, (DEL) 3- — It ij - y 
SfrtW*L^ — y;Hi^»Lfrv'. 


ibm55 • 7&— vns&m, 'X<r>m, 

it mbi6 tmt. 

• ^^BOBfticit nro, ffi) 

. ^gQ#Alt (# A) 

y y&mmit - y ^ 

stf c7)m*it (esc). 


PC100 • (CTL) + TO T>Xcr>m, 

(INS) le HI L X It FM8 tfflt. 
tzK L, 
ins 


M SX • (INS) , (HOME) , 
(DEL) , (BS) , * — V/lsfem 
^•-let 0 ifeJE. 


□ > h p 


: 3 > I- o-'V- • 

W* : i 

(a) (c¥l) 1) -(1] ^ — v/u 2) 

(b) COTL) -[Cl 7 ° p 7*7 A7^ff£4 ] tflr1~-i>( ( STOP) fr— £15] 

b). 

(c) CCTlP) - [El 

(d) Cctlj - ^ 

(e) CCTLJ -Bl 1 

(f) (CTL) -ffi # — V ;u£ifc<7) 8 -emi\ 

(g) fCTL^ -tJ) frSrHOfC^f f&. 

(h) CCTLO -fKl ti-v ;u£d-> — AteS^fTt*. 

(i) roTg-gjiiiffitfom*. 

(j) fCTL> Eril -*r *J -y x' • 'J7-> 3) . 

(k) (CTL) -fNl tl — V^ZwimZ-itZ. 

(l) ( CTL H R] 

: n CTL ( CTRL ) CONTROL cOHft. (CTL) »— — 

2 , *-v;u CRT±*e^{cA*$n*teSKSr^-rL- 2 >L. 

3 , 4 - tU» 5 »* 'J 7 - > BASIC *#{::, fJiA CRT 1 *. 

"7 • ;u — Sot<|sil:/u-f>J“oniILT^^ **i*'ttic|s] 

51 7 -r > • 7 -r — k ff £ ic &frf & c. t . 

') -> 3 > h-i — *rtu*$fciilisirt c *>* t, LCD^xr 

W 4 .h-C'H.i-Cv' 4 iiiifri{±, *w*£fri*ifliii*>-- tlzbZ. z 

<r> A £ =Sl- LSI iAI £ fttiftl X7U— >fcV'7. 

7 ) y<y^-X'<-x i]~ V;K 7 >£ffii]£ 3 ?ft (fiiJKt) U L'C£& 3 ‘* 5 (t£flll~ t £' 

8, 77 ?-T (TAB) tvn. fflj*.!*, 8 Rjrico^ 

— y/uwtfcffl. 


y° □ y ^ a 0 ij : 


I 


#S% : 7-7 U — > • x^-'-r 


APL • ^ff f t , Wr(OTL)-(Ol. 1 

frHiJI$(CTL)-[Xl. 

£(CTL)-|Bl, d*x — A<£S 

( ctlVOk] 

• om(cTL)-(H], lumtt 
•m±(CTL)-(E], 1 *3=4$ A 
(CTLVfRl. 

CcfL)-m. trn^COTL)-(Jl. 

• fijffi, m^(cTp-(Li, 

£fj • ^(CTL)-Iol. Sffi 
(CTL)-0. 

• *Efr+Wr(CTLH5). 

(CTL)-lGl. 

TRSi — 

CPM • if-( h • ^ — K(CTL) 

-S. 

• gfcft, »EBlKCTL)-foU»ih 
(CTL)-®, S|«(CTL)-|Ql, m 
ftf»jfc(OTL)-fQl, 

• fg®io)BfCTin-|Hl, 
m±CcTLi-ITL a**t?w* 

(CTL)-ful. AtHtMf?^ 
(CTL)-fRl, -<;WCTL)-[G]. 

u^c;u 3 • i] — '/)V % d"x — A fili 

CCTL>(K]. &'&£r>m (CTL)- 
IH1. T-ffl±(CTL)-fr, 

^Ac03l^-5feyl(CTL)-fF], ift com. 

namCcriXW i^#a 
fOTlD-|Rl. BffliW*(CTlD-IEl. 

• ?7i zm, -fe y KCTL)-fTl, f& 
HtfCTlD-(Yl. 

• ff(CTL)-(E], ® 
TI^(CTL)-1ZJ. 

M223 • ®ffi, ‘J X (CTL)- 

E, 7— e;u(CTL)-|U), 

(otiD-IEI. 

• (CTL)- 

ID. CCTL)-D(±^X>^;^3 t°- 

i> . 

MZK — 

C180 • (CTL)-lCl. 

• tfm* (ctd-iai. 

(CTL ) - [L]. l*^m*(CTL)- 

• Hff^±CCTiT) -(¥], 

CCTLJ-0. New Line (CTL)- 
|z]. (CTL)-(Gj. 

CBM — 

pcs • 

TRSn • ij — v ;u t *M(CTLV 
(A). m*(CTL)-[Bl. MLi*^ 
(CTL)-(D], MiofB(CTL)- 
(H), d~x — A b£3f ( CTL )- fTl . Rtf ft 
(Cftiz i £H(CTL>(K). 

• T'm*(cTL)-fn* 

(CTL)-fWl. 

• iBffi, m*(CTL)-(X), 
(CTL)-(Y), MA^CCTLHZI. 
nmn (CTLHJl. fl')f(CTL)- 
®. T^T/U • )V— •*•>«», ON 
(CTL)-fNK OFF (CTL)-fO). 

M243 • M223 ^ I?] b. 

MZB — 

BUB • d7 — y;u, ^(CTL)-(Fl, 

^(CTL)-(B), T(c¥l)-P1, d-x 

- Alia ( ctl )-iki. 
■«iaioi(cTD-m 
m*(cTL)-m. 

(ctl)-iri. 

CctiD-(e1. ^/k'ctD-IqI. 

■ • mfT. f ^(CTL)-fCl, «fjt 
(CTL)-jgJ. 

• iSffim*(CTL))-(L). fl'if 

PC3 • ^if&V-*7°D /7A • 7 

t >*^<7)Hff(CTL)-rDEB). 

IF 82 • tj — V ;U, ^(CTL)-(F), 


□ > h P — 


(CTLl -lMl. 


FM8 • — & fCTL) -|¥), 

^CcrD -m, Ji(ctl)-( 3 , T 

(ctlD -R, 

• && £ omfcTin -fH), mksc$- 
m* *(CTL)-l], m^tx *m* 
(SfL)-[S. 

(CTL)-(z), T^^ (CTLD -[Y]. 


P SP • M 3 h° — ( ctl)- 

(COPY) . 

• ih COTLH STOP I 


PC88 • ^- (CTL) -lA). 

CctID -(f1 

• te^j CcTL) -fo], mw± 
CgtID-(s). 

• gi[^CcTL)-(u). 

(CTL) -(Xl 

‘ li^li PC8 tmt. tzt' L, 
(CTL) -fNlf j: ~C# 


N52 — 


PC6 • # — v ;u £ 1 jK g r £ 

• * -v ') y y • v ?— > CctID - 

0. , , 

• 7 4 >-7>f-K 5) (CTL)-(J]. 

• -h — V 7UX> & & £ 1 *T i o 

CCTLJ -B, 

• i a CctlT) - [r] . 


MLT • f|1JX)§gX>#;9fi^ (CTL) - 

d. 

. -7"u r s 7J*<?)'PW f (BREAK £ IS] 

t) rCTLl -d. k 

• ») ^riw^m^ rcTir) - 
m 

• ;Ax>*t < 7 )%M^COTL) - SD. 

• -T-^f- (CTL)-gn 


^-XilH]b) CCTLl -fHl. 

• t) — y ;u £ ;Ax> 8 “C?S 

-f(TAB ^-^iHjb) (OTL) - 

BD . , s _ 

• ij— y; w, & (ctl)-(y] , & 
Cctl) -[I1, Ji Cctl) -R, t 
(ctl) RJL h (ctl) - E) . *- 

(CTL) - (gjR *T <50^38 
CctlT) - In] . 

• i ffm* ( cJl) (ctl) - 

CD. , s 

• m 5 m*(ctl)-E . 

• ^')7y- '] 9 - > CctlT) - 

® 

• i t?tfx(cTr)-i. 


hc • vm x ^ — > 6) 

X>fe^^ CCTL) - By 1K3»X^ 
|j — > Cctl) - (f) , _t 

(ctl) -(p], t CctlT) -(q), ;£ 
Cctl) - is] . 

• ij — v ;u, £r CctlT) -(d). on 
CctlT) -(v), off Cctl) -Iw). 

• AUTO ^r— 

CcTlD -fc). 

• * - y ;u*riwj m* (ctl) - fs] . 

• # — v;u*TlHiJJUf£Ai Tfr£ *CX>m 
*(ctl)-(D. 

. /<.y ? . x-<— X 7 >CCTL) -(H). 

• 8 ^rfc ^r 8 ) C 0 TLK Ei. 

• ^ 4 > • 7 4 - k CctlV Jj] . 

• tj — y ;u, *— Afejg CctlT ) - 

d. , 

• 15® X ? 'J — > <7) ? 'J T (CTL) - 
0. 

• * a* 'J ••/ * u 9 — > Cctl) - 

19. 

• #A CCTL) -(K). 


FP1 1 • — h (CTL) - 

□ , Cctl) - fi) , Cctl) - 
®, ^^tx> ^i^(ctlT -fe) , 
mm x<n ^ j ^yjoTp -W. 

•mm. _b^ CCTL) -[Al, 
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(CTL) -g) . Y<7) 

• i Cctl) - 5) , 

* CO^fc) - B) f firm * (CTCT ) - 

B. 

• -x. > ^ — Cctl) - fw] . 

• IZfrlitttmt. fit' L, 
CctlT) - f(5] , (cJl)-(j)(±^. 


SMC • i]— V > V, T (CTL) - 
(J), ffr-Aff aCCTL) -fT]~ ^ 

rfitffi CCTL)-fiL 

• i ^m^ (CTLT ) - d . 

• ^ ^ 'J y • *J 9 — > Cctl) - 

_ 

• — H#ffiik (CTL) - (S) . 

• 1 ff^tt^> (CTl^ -fO). 

• tj- y; ujg«<7)fr^ l 

CctlT) - (q) . 

> ?fl;fr1-£ fCTLP -fP). 


MZ35 • (CTL) ~[I]T-7-A-X h 
jlj®c7)^N— K • ^ b°— . 


fGTL) -[Ul. ffiB^ (OTL) -|B|. 
ftTIS itifii (CTL) - d , mk 
!ZAtlLtz?-?> K (ctlT) - 

B. 


IBM55 • (CTL) 

r^lf) , i r7 — k^(ctl) -R, 

17- Kfe CCTL) - EnU«*^ 
m^(Aff ^(CTL) -R, LL^x>ili 
ffif^^ (CTLF fI1 , yXfA; 
'J-b'xF ^ (CTL) - ( ) - 

(fl) . 


PC100 • PC88(c IS] b. 

P - (0] coia^ti < , lifrl z 
-(TjliKEY ON, CCTlD - 
KBIJI& . (CTL) -[X|(j: 
a— • T (CTL) -[Y)|j:o 

— ;u • ( CTL ) - [z] ( j: 77 — 


msx • *7— 

CctlT) - [e], l C^tl) -(g]. 


XI Hu • INS Vf&JB, MV& 

EH - R, 1 r 7— K^ (CTL) - 
-/ TcTL ) - PT) , 4f A 
- (r) , ~-NH$± Cctl) - 

-ri§:5£ (CTL) - WKt 

-® f ^ — y ^ 

-fz) , tj — vn'ft 
, & (ctl) -(D, Ji 
, t Cctl) -R, 

A-— -e (ctl) -( g) - 
M. 


MB16 • — /-fx — 

C 5 te)-(i, o fflccfip - 

^<7) 1 ^m^(CTL) - 

0 M vW ^ C^ tl) - (l) , m<r> 

lMX>^gg (CTL) -[B), 

(§TL) - (F) , ^AX>7 K¥ ^ 7' (CTL) 

-(B, CctlT) - [n], itrm* 
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Zfu V =7 l*(r>Wrr RUN 


MA : © RUN 70 


RUN “ 1 : AFILE 


’ , R 

^IH&nT 


mm 


(D 

(D 


T'^f X 7 T >f X X. 0 (Z O — K LSfcfH - *. 

»3eLir 

7°o Xx Ac7)^Lr£**-71 _ & <!:, K • 

©■Cii^fffrtcBHv'-C^S 7-7*4 JWi-r^-CUB t*. 
(Dco^HKi, K7>r7' 1) • ( : ), 7 7^^, 

T7°x 3 > 2) X~h6. 

K7-f 7* • £, 1 

RT7°x 3 £{±, o- K-r&iiulzy -t g 

>£^5eLfz t £fi, ^^•Cv^7T^Ui^co|^ t 

x>r'— ^ • 7 T 4 ;Mif^Wz£ i Xh6. 


V ' t Wc 

Z6. 

( , )R 


7^3 

f 


ffl! 


° k 9-f 7 7n 7 f-f^ * £ *w.: ») , r- * £jfc o m l *: o -t- * 
m n. mtkcr> K7>f r*<*> *«#«, k^-t ^asu-r -g, . 

2, *7'>3 x gfi<jU*oTmn££iMWT&^Uol+&ge-5L 


I “EXAMPLE” (T)7d7^A^->^U (CD 

— KU^fT^S. ^ A 


run "2: EXAMPLE" 
A=? 7 
7 A 2 = 49 
A=? -16 
-16 A 2 = 256 
A=? 0 
Okl 


LIST 

10 INPUT "A=" i A 

20 IF A = 0 THEN GOTO 5G 

30 PRINT A; ” A 2 =".;A A 2 

40 GOTO 10 

50 END 

0k| 

run 

A=? 0 

0k| 


#3§ : LOAD, SAVE, CONT 


APL RUN “AFILE", S7, Dl, 
VI 

©ig5EMli±, V r -f X a - y 

h •-)->'<, K 7 1 7* • 

X ij jl— A • 


TRS i 


CPM 


M223 

• «£li]b. fcfcTL, 

(D RUN “ AFILE " 70T AFILE 

<F>imfriom-TX£ 6. 

MZK 


CBM 

• MZK <hf5jb. 

PC8 


TRS. i 



PC3 RUN n or s 

• 7 4 > * **">'< n, £ > 

• s i^^ELr. RUN <7)f£ 

(z (/) IMt*- K 

IZA4. ^^0 £ ^ (DEB) ^ — (Z 

X^XT'<'v XX£6. 


IF 82 


U' ^^3 

• MZK tl^b. 


Cl 80 (D RUN AFILE . IB /I 

•7 7 4 £t£?El-& £, 

*17zIB 7 r 7 -t^Xg 

ffl&i - 6 t^ — K • 7 — X 4 1 X> 7° u 
3— K • *7— 

[zrD/7A^4-v'illi, V — 
X • 7— ? 4>X)7 “o X7 A £ IB 

=»— Vlz&isixmft. 


M243 • M223 £ P>J L . 


MZB (D RUN FDKsl, 

I i 


“AFILE” 

JMtfeMiUi, K 7 7 7* • x 

L— 7* • f' -| XT’? h •-f'Ja- 
A • 7 7>f/^ t 


BUB 


FM8 • £ Ip] L . /z £f L , R 

t7'y 3 >li^i\ ^<7*;u (0) 

commit V s ? 4 7*- • 

0 (z BUBO : 


PSP 


PC88 

• t. 

N52 • K7^f7- 

-T6 to £*&5eL fzztlztch. 

PC6 


MLT 


HC 

• K 7 ^ 7 • A, 


B, C, D X>V'-f tl^‘(zi-^>. 

RUN “COMO : (BLPSC)” £: ~t 
6 t , RS-232C ;K- h 
(BLPSC) Sr^L, 7 •o/yA 
X>u — 

7o /7AliTX ^ — 3!^X> ^ X) 

lz|&&. 


FP1 1 

• N52 tfflt. 


SMC 



? J: ») 

0 — K 

MZ35 


/z/z'L, #£ 

tKDfif£ x&V'. 


XI Hu 

• lH]t. 

fc*rt, © 

X>T7'x 3 Xt&'s'. 


MB1 6 

• t |n] L . 



-f p 7 =7 u<nw<n run 


IBM55 • fcrtf L, K 

=7 A~r ' A, B, C< 7 ) 


pcioo •7r^i/-x^7;iife 
ss^-c: bas v 7 >r 

£ #14, *7U 
> h •f>fl/^l' U***&5£3*l*. 


MSX • $,f&fi(I)<7)<* T& & £*, 
(Dco^^-Cl^ i. -& *»«*<*> & . 


I 
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V U-X5C TRON, TROFF 

: 0 TRON 
© TROFF 

(D*<o^- K 

: 1 TRON TROFF ~$t, £tzi±, NEW 

K£^trt'& <t «fcv\ 

! »H/-7 17-or^rD/ 

7 J+cnftitL t , -C £ il& . 


7” P 7' "7 A #11 : hb-XS-^trlj, 1 = 2 CO**o h L/— 7.£-ft¥RJ;b, I 
= 4 IC&-}fc'o h b — J.fr'Mf?-tS>. 

10 FOR 1=1 TO 5 
20 PRINT I 

30 IF 1=2 THEN TROFF 
40 IF 1=4 THEN TRON 
50 NEXT I 
60 END 

m ft m 

tron 

0k| 

run 

[10] [20] 1 
[30K40K50K20] 2 
[303 3 
4 

[503 [203 5 
[303 [40] [50] [60] 

0k| 


#flg : STEP ON, STEP OPP 


hb-x • 7f>, KLx-X • 7T^ 


APL TRACE, NOTRACE 

MLT • *SCt If] t. 

TRSi • ^TfcilSJt. 

HC -ttCtfflt. 

cpm t. 

FP1 1 • LTRON T'-r'J > 71Z h 

p — xi, troff -emr&T&. 

M223 - 

SMC • DEBUG KC|5] t 

ZtfrX'Z h. 

MZK - 

CBM - 

MZ35 • PC3 £ IfI b. 

PC 8 • 

XI Hu -«:fcRIb. 

TRSii • 

MB1 6 -afcfcfcElb. 

PC3 TR ON Ml, M2 

• Ml M2 h P — x£ 

ff 7 . ML/:^i±, t<t«0 

TR OFF TiH 

P& 

• TR PRINT Ml M2 t'7* >J > * Id 

IBM55 • #:fc£l*Ib. 

PC100 lH]b. 

msx -*:££[5]b. 


IF 82 

U^;U 3 • A^Xt ItfJ l:. 

Cl 80 - 

M243 - 

MZB - 

bub • 

FM 8 • *-£ t IS] t . 

PSP -tttmt. 

PC 88 

N52 -tttfflt. 

PC 6 — 


Xf7 7°iff STEP ON, STEP OFF 


Bit : (D STEP ON 
(g) STEP OFF 

ffltWeKD 

(D STEP^fr£$£l&1~&. 

: 1 RUN<7)BtJ(3, STEP ON STOP * T'# it $ 

STEP ON 

2 STEP ON -t — £, 5^T(± CONT T'tTV\ RUN til&fj j 

iz & h tz t* L , f£<7) END tl:lo CONT *) 

3 STEP ON^e-Kli, END :£<7>5 ITt, $■ ?zl& STEP OFF iz 

j: or miftznz. 

4 STEP OFFI1, STEP ON — K & . 

5 STEP ON -t — r7AOlffli 

CONT “ClT 7 . 


51 *t 


0IJ : STEP ON Idcfe^T, ~Zf 

u, step off xwvfctz>. 


LET B = 3 
FOR I = 1 TO 10 
LET C = B A I 
IF C > 1000 THEN 
PRINT "TOO BIG" 
END 
NEXT I 
END 


#1 ist 
10 
20 
30 
40 


50 

60 

#STEP ON 
*RUN 


STEP MODE 

IT LET B - 3 

*20 NT FOR I = 1 TO 10 
#C0NT _ 

30 LET C = B A I 

^40 NT IF C > 1000 THEN 

#SET A=I+5 „ a 

#TVPE IiC;AiB A 
1 3 6 728. 99 

#STEP OFF 
*C0NT 

TOO BIG 7 2187 
END OF EXECUTION 


I ; C 


#0S ; TRON, TROFF, SET, TYPE 
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Tjrvy • 7r>, • y^y 


APL 

— 

TRSi 

— 

CPM 

- 

M 223 


MZK 

- 

CBM 

— 

PC8 

- 

TRS„ 

— 

PC 3 

— 

IF82 

- 

\s *<)\s 3 

- 

Cl 80 

— 

M 243 

• -fr-lct rot. 

MZB 

— 

BUB 

- 

FM8 

— 

PSP 

- 

PC88 

- 

N 52 

- 

PC6 

- 

MLT 

- 

HC 

— 


FP1 1 — 


SMC • DEBUG -CIS] t Z b&Xr 
t* h . 

MZ35 — 

XI Hu — 

MB1 6 — 

IBM55 — 

PC100 — 


MSX — 


40 


— -T- SEARCH 

: SEARCH “B” 

mm : • 7 °o 'J x 

h "t - -5> . 


* *-r IfJ : yni?‘5/*ipT?"A"<D35&?f& l J?>h-?&. 

LIST 

10 INPUT A 
20 B=2fc3. 1 4&A 
30 PRINT B 
40 END 
OK 

SEARCH" A “ 

10 INPUT A 
20 B=2X3 . 1 4 .¥ A 
OK 


#bb : 


+t-5P 


APL 

— 

SMC — 

TRS i 

- 

MZ35 — 

CPM 

- 

XI Hu • 

M223 

- 

MB1 6 — 

MZK 

- 

IBM55 — 

CBM 

- 

PC100 — 

PC 8 

- 

MSX — 

TRS„ 

- 


PC3 

- 


IF 82 

- 


U’ ^<.^3 

- 


C180 

- 


M243 

- 


MZB 

- 


BUB 

- 


FM 8 

- 


PSP 

- 


PC 88 

- 


N52 

- 


PC 6 

- 


MLT 

- 


HC 

- 


FP1 1 

- 



*T7°P 7^ /xcn^W. CHAIN 


: CHAIN MERGE “ TEST ” , 100, ALL 

I I I II I 

, DELETE 10-90 


^B&pj 

WH& I /7A^r>( x 9 1 9 o— K LX^ff'f 2> . 

4#^ I 1 MERGE fritlf Z> £■, ^m=r fttt 

MERGE £#lt£ £ £, TEST liTX^r- 
T'-fe— ’7'L'0' 3 S:ttfUf & 

2 100«iSfeffWte*##. i-/o 

3 ALL SrftJt* 

4 DELETE 2> . 

5 /t'jia 1 ) £ Ap^v^^^-rur^A^^i- z><7nz\&m. 

<*>SAVE “TEST”, A £ tl& . 


~P° P j? 7 A^J : 37' □ ^ A 2 ^3£Lr U, D^Al £- 

MERGE tt££-UT CHAIN -f -5. 

1 

10 LPRINT "LINE 10" 

20 LPRINT "LINE 20" 

30 LPRINT "LINE 30" 

50 END 

XnV f 7^2 


15 LPRINT "LINE 15" 

25 LPRINT "LINE 25" 

35 CHAIN MERGE "TEST" , 25 , DELETE 35-45 
45 END 


m 'if #J 

LINE 15 
LINE 25 
LINE 25 
LINE 30 


#hs : run, merge, save, swap 
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APL 

CHAIN “TEST”, 100 


TRSi 

• pcs tmt. 

CPM 

• *7 


M223 CHAIN 1 : TEST, 100 
•MERGE, ALL, DELETE *7” 
x a Xi&V'. 

• KILL -C2&fc£ 


MZK CHAIN “TEST” 
•MERGE, ALL, DELETE tT 
a > li & v». 

• UTrli^u A<7)#&*^ Ap. 


CBM — 


PC 8 RUN “TEST” 

• ^hr{i*7°o /^AWHnrtA 1 Aj . 


TRSn -PC8il5]b. 


PC3 CHAIN “TEST”, 100 
• TEST+^'Mt#-^! 0 * 

y * >J /?ai^ 

■2) . 


IF 82 

• *X£1*)t. 

lx *^71^3 

• PC8 illlb. 

C180 PLOAD “TEST” 

• Slj7°o r^A^lAT'ro ?'^A£ 

M243 

• M223 tffl b. 

MZB 

• MZK i:|H]b. 

BUB 

• ^it^ltlb. 


FM 8 

• pcs tmt. 

PSP CHAIN “TEST”, 100 

H&£ COMMONS J: OlftS. 

PC 88 

■ ** i is] t . 

N52 

* PC8 £ IWJb. 

PC 6 

• PC8 tlWIb. 

mlt • 

HC 

• MERGE 

FP1 1 

• MZK i 11] b. 

SMC 

100, 

CHAIN/M/V “B : TEST”, 
DELETE10 — 90 


• mmtitttfflk. fzt: fL, 
MERGE T7°;x 3 9 fC 


/M£Il J fflb, /V£/M£|WJbf£ 
ICfffltl) ALL 

3 xnftfr 9 


MZ35 

• PC3 £\s\t. 

XI Hu 

CHAIN “TEST” 


MB16 

• ^iilHlb. 

IBM55 


PC 100 

• **£n5]b. 

MSX — 
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7 °U ? ^ A<DV-'> MERGE 


: MERGE “ AFILE ” 

mm : ^ X 'J (C&&7°n /7AIC, L X 7 • 7 7>f ;K7)V°0 7* 

7A^AtS. 

«o &■ V\ ^ 9 "C^rV' ilir Bad file mode " JL - 7 — £''4£.L -S> . 

2 ^Lt77^K7)7u/7At, y -t 'J c^CO-ro /7 A(Zl5j 

t £(i, 7r 4 ;u4 3 <^fr^f£7 l c;£*L / x 

') 4 ^Tlifmit£n&. 

3 MERGE com.fr fr&rj'f h £zi^> K • U'Ol'lZ l> t' & . 


m fr m:^ i J<DZfO<P'^^\ZZf7-C^'PB.OGZ”(DZfn^' :: 7 
A £-^7 — Vt%>. 

list 

10 REM sample program 
20 PRINT "merge" 

30 END 
Oki 

merge "2:prog2" 

0k| 

1 ist 

10 REM sample program 
20 PRINT "merge" 

30 PRINT "yuusen" 

40 END 
0k| 

load "2iprog2" 

0k| 

list 

30 PRINT "yuusen" 

40 END 

0k| 

#fS : CHAIN 




APL — 

BUB -*-&t mt. 

TRS 1 -tttfflt. 

FM 8 • V'OV 3 £ |WJ L. 

CPM • ^Xc£ IsJ t. 

PSP LOADS “AFILE", M 

/7A^^fi:I^l4'A { bD 
— Ki~& . v — x • 7*0 ?'y au 
x. s 7—h i hhtzmz, Mi(-^y 
— • y y -t — : j £ frnpv&tf&m 

£n, «hel **«*>» — K-ctr*. 

M223 • APPEND “1 : AFILE" 

• *£5EJfU±, v^^rr • -7 

7 4 

• / X U 4>c7)-7°n y'yAU, .BAT 

<n-7 r 4 L'Cf&*rt£*i'Cv'& 

•APPEND 1-&7°n ?'^A<7)fr# 
4f-£, 

< S£JI L T £> < d £ 

PC 88 

N52 * Jn/E't' & "7 7 4 7U(i , 

jis 

MZK — 

CBM • / X >j 4 , <7)7°n 77 A £, 

~7 r 4 JV^coXn 7=7 A £o£:tf 
&Z 1 £(iT'£S:V'rt<, CONCAT 
(- J: 0 T“o<7>-7 r 4 

pc 6 • 4^ t ra t . 

MLT • 4^ £ rsj t . 

HC • — “BF” 

n-2>. £ tz, MERGE “AFILE", 
R £1~& £ MERGE **-7 f £f±7u 

• MERGE “COMO : (BLPSC)"£ 
tSi7o/7^^ RS-233C Ja 
») §%<&&& Hfrti MERGE £ Is] b . 
BLPSC 

PC 8 • 4^ £#»<<.. 

TRSu 

PC3 

IF 82 • l: . 

FP1 1 MERGE “AFILE", R 

• ( , R) SrJ&Siil-S Cl J: ») , #r 

L < i&f}‘£*LA:“7 P ° /7 Acoftyfi 

. 

l — :;U3 MERGE “ AFILE", R 
• R£#T*e1-& t, MERGE Vk 

•/o 77 ^mfr-t i> . 

Cl 80 • COMBINE 3-7 > KU «fc 

^tCBMt HJ t Z £fr\ RESID- 
ENT fgfcZtltz IB 7 7 4 

SMC MERGE “CTR : AFILE" 

• & ')7"t 

coitim h «T. 

MZ35 -tttMt. 4^1 

M243 • M223 <£: P»J b . 

MZB — 

XI Hu • ^Xc£W\t. 


-7°n ? =7Jx(T)^? — i> MERGE 




MB1 6 


IBM55 


PC 100 


MSX 

MERGE “ CAS : AFILE ” 


44 - 


lx-f PLOAD 


: PLOAD 44 AFILE. IB / 0 ” 


T 

'JEW 


I IL 


J 


K -7 4 


*Mg 

«« 




*&5£Lfcffljro 7 '^a 1 ^, 7 d 7 1* . ta * ') ) 

1 IBS^ 2) 07r^/Hi,SAVEa-77 K £ tltz i> <7)X'&> & 

X t . 

2 -7*— A • 7T'(^ 3) 0^^tl FD 

£1^7. 

3 PLOAD (i, Iljro ?'xAX>Dft>'£RL(i L&v\ 

4 PLOAD fcjgfcllfTl-* fc, S*')±CD -Tv 7=r 

W$ilfc»iro 

5 7t^^ “AFILE” fi, “AFILE. IB/0” £ ft < . 

6 ±70 7=7 Afttz£^glJ-7°u ?'x ACjitLt, CALL:fc£^fr 

-r&ittjK, PLOAD 

‘1I7p^7A —tilz-*f-7;u—+>ii±- 7v77 2*<r)—%ftX:*>Z>-fi<, MiJXo 7 
vA{±, ±Vo Xy^lzftLX — ocnte.lLl.tz-r'n Z tfrX’Z h. 

2> IB7 7-f^ z>-Y-*7-?t 3 — K • *7— 9 Z'&M't Z> Z t 

i:i ») ffrfcSft*. 

3 >7*-A • 77-f ^ 7^-i.Ma-r-( Ijf ^ FORMCJ:'), CRTJilC:*: 

7r-f^ 


yn : NxNi su^d^a^- 

pload 

&\}zfn'f = 5J± 


10 PLOAD "S'OR. IB/0" 
20 INPUT N 
30 PRINT H N="5N 
40 CALL SQR(N) 

50 END 


m n m 


N= 2 

mu 

##### 


10 SUB S0R(P1) 

20 IF P1<=0 THEN SUBEXIT 
30 FOR 1=1 TO PI 
40 PRINT REF'Srr ,P1> 

50 NEXT I 
60 SUBEXIT 
70 SUBEND 


fig : PDELETE, CHAIN, SWAP^^ 


LT— • □— K 


APL — 


TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC8 

- 


trsii tztz ru 

MERGE “ASUB” t'7o y h° • 
T A X Xl*JX>7X ^r— §y^c7)-7*o 
/7AASUB$:, ±SE1*_h<7)T 'o 


PC3 -s^^rL. fc/*L, 
LOAD SUB “ASUB” X, Ta 
x x^o+^wig^ogij-ro x 
X A ASUB $r±|fiiiF^X)-7°u /7 
7 x*-M5$ 
C7)glJ-7°D /7 AtcJN-L'CtiUff’C 
glJ-7“o /7 A|*JTi±^ff 
T'££:^. ±seit±X)7 0 0 /7 A 

if 


IF82 -h£^£L. 

CHAIN MARGE “ASUB” Tx' 
4 X 9 ftX>7 X ^ — 3k J ^:<7)alj7°o 
?'XAASUB£, ^setftp^KD-ro 


U"^^U3 


Cl 80 • 


M243 — 


MZB -SWAP #B?.. 


BUB • fZtZ L, 

CHAIN MARGE “ASUB” ,, 
ALL T'SlJ-To /7A ASUB £, 
±f£1t±X>7n /7AO||l:i| 
1"&. ALL £#tt& t, f^T 
ALL £ 

i» 1 -& £ COMMON ^TTbae L 


FM8 

— 

PSP 

- 


PC88 • mWi BUB t\sit. 
MERGE ttzlt ALL 
(tftfif DEFINT, DEFSNG, 
DEFDBL, DEFSTR, DEFFN, 
OPTION BASE, ON ERROR 
GOTO 
ttz ALL 

DEFFN, OPTION BASE, ON 
ERROR GOTO 


N52 

- 

PC6 

- 

MLT 

• PC88 t [SJ t . 

HC 

- 

FP1 1 

- 

SMC • CHAIN -XXm^FX>Z t 

MZ35 

CHAIN “AFILE, AU” 

XI Hu • t&MZcL. tztz TL, 

CHAIN <7)$3k*i$&Ft 

h x> xffl%?<x> ci t t<x £ h . 

MB16 

• PC88 £ IWJ L. 

IBM55 

• PC88 tfflt. 


45 - 


t°— • □— K 


PLOAD 


PC100 -PC88tfflt. 


MSX — 
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CLI GODBY 


Mift : GODBY 

WtWk : cli (uos) -t— Kutar*. 

2 V/Vf • ^^^ ) *7 , o/7At END 60ftio I) CfflV'S. 

ffiln •* "*-?> -7 -r < ft' 

2) ™*- • ? x ? JWM * ii * fl: •JVT'. 7 2. ? fc a >' 3 T* J: *M' £ v »fj- *|vso jji 
f&soc >. 


yp^'-7A^IJ :i~10(D»C^m*U/z?^ CLI^-KAfgft^. 

10 FOR I = 1 TO 10 

20 PRINT I 

30 NEXT I 

40 GODBY 

NO END MARK 

m ft m 

*RUN 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

READY 

# m : BYE 




APL • T' 4 2. ? • ^ > h d-7 
^)Xott'Uo 7 h £ S 
i, PR#S il-fUdTJ:^. 


TRSi CMD “S” 

• #(3 DOS ^e — KCti'S fc'ltt 

CPM 

SYSTEM 

M223 


MZK 

BYE 

CBM 

- 

PC 8 

- 

TRSn 

SYSTEM 

PC3 

BYE 

IF 82 

- 


— 

Cl 80 END 

• 7d /7 A:£4 , fz/f3v'& - £ (i X' 

M243 


MZB 

BYE 

BUB 

- 

FM 8 

- 

PSP 

— 

PC 88 -m^h* L. ^*U-|4t]jiL 

T BASIC -*- K£tfJ‘) 

NEW ON3v> K *<*>4. 


N52 — 


PC 6 — 


MLT 

- 

HC 

- 

FP1 1 

- 

SMC 

• CPM £ IWJ L. 

MZ35 

BYE 

XIHu 

- 

MB1 6 

SYSTEM 

IBM55 

SYSTEM 

PC100 • lz}fficryfc^riz SYSTEM 

h, 1Z>) 

t SHELL (0fr£§iX*) *<*>%>. 

MSX 

- 


CLI ^E- BYE 


Jfczt : BYE 

;$£££ : EBASIC^— CLI n (DOS 2) ) -t — ¥h. 

tfifWi ' GODBY * f 7°o BYE (i 

EBASIC hz.t frm *5 . 

m |E • 1 » CL | A ,‘IUJ ^ iK, -r- 9 - -7 r 4 >\s<r>rm, £ *:*»*> ttwro/^A 

■ -jtfrs n * Am* tm* km l , uttitj 

(, > -) iVt', 1 !)] £ ‘JifU't Z> fzshcntfl'Z ti zi-^> K (Command Line Interpreter GDHft). 
-’DOS Disc Operating System. 'A’f'j 3 > t‘i 9 WJlftl*! (- & A. 

r-i'-c, z. t osco^i. 


n Vt $J : ^p-r )l>& “SAMPLE” (D^D^A^OLD r 11 ?- 
7c U, U^h^aj^UTc^BYErCLI^— Klcfeti: 
£>. 


READY 

BASIC 

♦OLD SAMPLE 
#LIST 


10 

20 

*BYE 


REM EBASIC: MODE 
END 


READY 


#HB : GODBY 


(v 3 


V 


J\ — < 


APL 

X o *y h £ S £ L 

PR#S 

TRSi CMD “S" 

• tSfigli^ScilwJt. 

CPM SYSTEM 

M223 


MZK 

• mt. 

CBM 

- 

PC8 

- 

TRSn 

• CPM tmt. 

PC3 

• #-$ct mt. 

IF82 

- 

U* ■^JU3 

- 

Cl 80 END 

M243 

• 4:* t luj t . 

MZB 

— 

BUB 

— 

FM8 

- 

PSP 

- 

PC88 

- 

N52 

• cpm t mt. 

PC6 

— 


MLT • CPM/86TCO BASIC X'lt 
SYSTEM X-£ V'. 

• a 9 > K • T n > M-BASIC Xii 


HC 

- 

FP1 1 

- 

SMC 

• cpm tmt. 

MZ35 

• tttmt. 

XI Hu 

- 

MB1 6 

• cpm tmt. 

IBM55 

• cpm tmt. 

PC 100 

m. 

•SYSTEM, SHELL# 

MSX 

- 
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ffCOmiE EDIT 


: EDIT 10 


nm : i 0 tz (.) 

(SOtfjE^r-# *2). 

2 EDIT l) ^-K-C, >XX) X 1 &m tX{£3Eii<X'£Z>. 

(ENTER) : K • X— Kfclfc&ftk: & ¥ h .n (SPACE) : 

^:^ij$r^7r:i"<2>. n, R : ^ — V/u 
n . (SHIFT) t [T] : '<kX> = 'OCO EDIT n 

> tX>X- K*m o EDIT -t— t*h. (X) : \T\ . 

3C^?IJX>#A, (Hi : 3fc^?lj608lJI&S:<*:\ 

3 Z^mz, B, (A), ®, (§), ni, n(C), n(®, n® i'^JE 

&. gtg|li EDIT K«7)^e— 

T'£ irV'. 

I "xtV H -7vX7 2*<?)1fcjEi:1r&Zt. 


m ft rn: EDIT &1&-DT-zfntf^A<Di\£]E&-?&. 

>EDIT 100 
100 _ 

(EDS] 

100 FOR 1=1 TO 1 0 : PRINT I,I*I:NEXT I 
100 FOR 1=1 TO 1 0 : PRINT _ 


mamRn t ^ h ) m 


100 FOR 1=1 TO 1 0 : PRINT I,I*I:NEXT I 
100 FOR 1=1 TO 1 0 : PRINT " I="_ 




100 FOR 1=1 TO 1 0 : PRINT I,I*I:NEXT I 
100 FOR 1=1 TO 1 0 : PRINT " I= M _ 

> 

LIST 100 

100 FOR 1=1 TO 1 0 ; PR I NT " I=" , 1 *1 :NEXT I 


U — > • JL-^X Zl > h □— Jb5c^ 


■• <1 & 


I5V h 


APL — 


TRSi 


CPM 


M223 

• EDIT 

l:^LT, x ? 'J — > • jc.T'.f 9 

fivHc 

WZJEfrXZh. 

MZK 

- 

CBM 

— 

PC 8 

- 

TRSi, 

• tttmt. 

PC3 

• mnm^tmt. tzt* 

L, 

EDIT 70, EDIT CH, 

EDIT/ (c J: o X 


IF 82 

• M223 tfflt. 

-M223 £|Hjb. 

Cl 80 

• SEDIT /ILiotm 

■*t~r 

• KfzJ: oTfl^IEL, 

END coAtllz 

M243 

• M223 tmt. 

MZB 

- 

BUB 

• M223 tmt. 

FM 8 

• M223 tmt. tzt* L.Jt 

£ / 'J Tt 

6. 


PSP 

• EDIT 70T*&5£fT£*^. 

PC 88 

• M223 tmt. 


N52 — 


PC6 

— 

MLT 

• M223 tmt. 

HC 

— 

FP1 1 

— 

SMC 

• M223 tmt. 

MZ35 

• PC3 tmt. £•*>. *$fa 

1 li d) *-Xi>X£ h. 

XI Hu 

• M223 blHJb. 

• W<kl X ( . ) (i£"fr“C£ S. 

MB1 6 

• M223 i[5] t. 

IBM55 

• M223 tlHjb. 

PC100 

• M223 tmt. 

MSX 

- 


7° □ 'f 7 <7 l ) T NEW 


MsH : NEW 

MM : , Jo+c*>£7'or?A£iiifL, vr-th. 

<&m : i #r L ^7*0 t £, =»-^> K • P^LT'UfT 

“t" & . 

2 o rt: 2: £ , 3v> K • t i'l). 

3 fflfrtiX^fz 7 T 4 b 4 . 

ffiin • ”7 7 -f^ t. r 7 o 7*7 A • 7 r 'f -'Uj t 

r 7'— ^ • 7r-f^j 

2, a-K* 7 -^ v-x- 7 -^i^Lt, 3 SfT°r^fr^ 5 £ULfc IB 

7d /7A?:Mti7T ^ /u. 

3, v — x • *7 — ^ y-x-7Dr7A^lt5tW:, — n#£ftK v — * • 7*o 

7*7 A £te*rtT & fZSb(T>-7 r -< 7K 




list 

10 FOR 1=1 

20 PRINT "* 
30 NEXT I 

40 END 

O kH 
n «=: i...i 
O <■ 

«1 i s +- 


TO 1 0 


#hs : delete 


- 49 


— ZL 


APL -**2:|i3b. 


TRS i -**2:l5]b. 


CPM • **2:111 b. 


M223 • **2: fWJ b. 


MZK -**2: |Hlb. 


CBM -**2:fHJb. 


PC 8 • **#M 


TRSn • **2: In] b. 


PC3 -**2: PUb. 


IF 82 • ** 2: l«J b . 


• ** 2: fo] b . 


C180 -**2:lHjb. 

• DELETE 

• 7 — K • *7 — 7 2) £ tz ti V — x • 

r?_ ? 3)^-7 T yf 

basic NEW it 

CWORK i fzd SWORK X' 

ft n . 


M243 

• ** 2 :|Hjb. 

MZB 

• ** 2 :|W]b. 

BUB 

• ** 2 : fab. 

FM 8 

• ** 2 : fa b . 

PSP 

• ** 2 : fab. 

PC 88 

• ** 2 : fab. 

N52 

• ** t fa b . 

PC 6 

■ ** 2 : fab. 


MLT 

• **2:fab. 

HC 

• **2:fab. 

FP1 1 

NEW ALL 

• ALL £#it h t PROGO fr to 
PR0G9 <7)^r7°o / 7 A 'i'lT 
C07a/7A2ft^ii, Ott 
IJ T<7)^. 

• ^'”X7 


(i^T-C^&VL 

SMC 

• **2:fa b. 

MZ35 


XI Hu 

• NEW ON 2: CLEAR 

( £ fzli LIMIT) -Cjg^LfcSU* 

'J 7$n&. 

INIT “ 

0 : " 

• #s£$ftfcr'<4 

mbi 6 

• **2: fa b. 

IBM55 

• ** 2: fa b. 

PC 100 

• **2: fab. 

MSX 

• **2:fab. 


! 

j 


50 


auto 


: auto 70, zo 

i ii 1 ' i 

i i 

*Hpgjfc : i auto nifefcmit, ( , ), -/d/ 

7A<7)i^T, £»&Lfc £ tzt' L, if'/ 

auto vnmfrfrmm 

ZtlZ. 

2 AUTO it CCTlD -fC], ttzlt (STOP) % — (?) At) lz J: oT^- 
7-T& . wC7)i; |s*>frtil&frt3il*v\ 

3 (CTL) -[C] K * K^ 1 '!: (> £'&. 

4 -To t 

; «»□ K • is'OU ro/^AWX^# 21. %fr£ f 'C£*:Kte. 
u 7 f- • 


AUTO 20.. 5 
28 FOR 1=1 TO 10 
25 PRINT "*".; 

30 NEXT I 
35 END 
40 
0k| 


7T— h 


APL — 


TRSi • tzt' 

L, *tf)!J*>fT#-^£*&5gL fcv'fc 
( . )^*&5 e-T 2> iM: 
<iOff#^-+10«J: ofr#-^££j£-r 


cpm • tzt* l, % 

htzit (*) 

( RETURN )%■—£: XtJ L tzt 
£14, tt&ZAtjLtz 

m ( RETURN ) A — £ At) L fz 
t £(4#rb Wt tffeft+h. 

M223 

£v\ 

£> tl 

• »Ktt4 
1“*. 

• ft*B*>4T#-9-«i£ifc-C£ 
ifl#(4 &«&**•<& £10To£ 

(CR) $:2®oo'ltTA)l 

MZK 

- 

CBM 

- 

PC8 

• 4b3iC#8fl. 

TRSu 

CPM 

• TRS, £ [SJ b . A:A:'L, 

PC3 • *tC t m t . tzt* L , # 

fifth: (4 (CL) A--, (AUTO), 
(ENTER ) A-— , £tzl*{ HOME') 
A— 

IF82 

• CPM £EJb. 

U""^ JUa 

• 4:* t (oJ b . 

Cl 80 

AUTO 70 


t&5eti. iW^lO 


#Bfct±*-v>-feA, • A-— U Xh. 
LIST =7-v> Yf><m^f^i\.btXr 
t±, AUTO 

tz& 

AtjZtiX^Ztiir^J: *) 
^-^AUTO'C-ttt^-r & ~ b 14*0# 


M243 

• M223 t T«J b . 

MZB 

• b ThJ b . 

BUB 

• CPM £[nJb. 

FM8 

£ &V' 
1" •& . 

• trXlz&Z>&^liAt)T 
. ( RETURN )A--T'**7 

PSP 

• CPM blHjb. 

PC88 

• cpm tmt. 

N52 

• fr &-%■<?) *fi<ffi%i$titz 


t zcvMfrmt io. 

( . ) 

0 Xh h . 

b, Umlz t K AUTO =7-v>> 

tux, xtzAtii- 

£-7*0 /7 AlZt'ltfr&^fr'Dlt 
$>*L AUTO =^> K^O^SKi^ 
JbZ>. 

AUTO (4* b y-7° • A— 
X'tfWT, *(7)m=i-T> K • 

;nz &¥&. 


PC6 

- 

MLT 

• *tct mt.. 

HC 

■ «f0S®^(STOPJif— 1 4 

( BREAK) A- — Xbh. 

FP1 1 

• 6 £10fc£: 


AUTO 


mmzit'rv Ati-ttriz 

( RETURN ) 

£^?nL'C%££4 1 itL3-^> K 


SMC • mfr&gtt&lfc £ £U10 
lzfr&. 


MZ35 • 

10tc&*&. 

• 3*-— i' mm £ %mir & iz u CgiD 

£?zt& E) £ 

IW L T 7 >f > • +>/ <£ m L tz 
m AU TO c ENTER ) £ j~ & . h 
i>v^i rCTLT) - (HOME) ^r — ^ 


XI Hu 

MB16 

• cpm tmt. 

IBM55 

• TRSi £\s}t. tztz TL, 


(± BREAK 

PC100 

• CPM ^loj b. 

MSX 

• CPM £mt. 


- 51 - 


7 f— h 


- 52 - 


yp^^A(7)ijX h LIST 




LIST 


70 -170 




I * X ') x>rplzfr <6 7*7 A<J0^SB, ttzlt— U&'f'j X7*u>f tc 

- 2 > . 


*S« : i 

2 

3 

4 

5 

6 
7 


HTt £''#*■ 7 i~ S £ , r» -7 > K • u ^ufc & if & . 
i-^-C^n&Lfci £(i, fcrtf 

L, &frTHfir£$fc7l~£ i: (STOP) ^ — (KAtilz J: &. 

(-)ir«Lfciiii, ^L^^(^-r^rc7)^T^m*-r 
b. 

(-)t 2 #@c7)tT#-^‘^tH^L/w i: £!±, 7°a /7 AC^^TJCT) 

*T**fc, 

X^xmfcttzt £(±, imc*&5£Lfcfr#-^$>, fttciejgL 

T'$r •&. 

(-)<7>tt;b») (c( , )£fflv>-C& cfcv'. 


II *t #J : cXnf/^A • U^K^ih^bT^. 

1 ist 

10 INPUT "A=";A 

20 IF A = 0 THEN GOTO 50 

30 PRINT A;" A 2 = M iA A 2 

40 GOTO 10 

Ok| 

list 20-30 

20 IF A = 0 THEN GOTO 50 
30 PRINT A;" A 2 =";A A 2 
Oki 

list -20 

10 INPUT "A="; A 

20 IF A = 0 THEN GOTO 50 


#fig : LLIST 


UXh 


APL LIST 70, 170 


TRSi 

»)*Z ( 

, ) (±1^ 

CPM 

• TRSi i: ISj L. 

M223 LIST 70, 5, 170 
• 70 fra* 170 Tt^ T, 5 frf 

tztza, 

Xb. 5 *m*&tfzt ^(±23Tf-r 
■o^/p;, &rcfr(2 ^r — XtJiz J; & . 
(LF) *-£ A^i-S i: 1 TtTo, 
(H) *- £ ATjI" 6 t llLrf 

7^i"&. 7 "V > K • 1, if 

Stcti, (ESC) ^ — <7) J: 

•2) . 

. J: •) 7 r 4 7k 

-^7° U > ^-\<7){H77 & "X. 

MZK 

• *xtwit. 

CBM 

• TRSi i: |WJ b. 

PC8 


TRSu 

• TRSi tW. It. 

PC3 -APLtWlt. tzt* L, — 

£(±, LIST 
70, 70£1£ffl, LIST 70 t X b t 
vorfixi&cD-t-^mfft rnmXb. 

if8 2 

• TRSi £|hJL. 

u^<;u3 

• *X t IS] t . 

C180 

• $ LP 
1- 

LIST 70. 170, $ LP 
£#j7iiL4-v>>: APL > |sj 

• $ lp zmtei ~b t- 7 ') > ?tzi m 
tiznb. 

M243 

• M223 irlHjb. 


MZB -LIST, LIST-70 <r> 

^T 

. ij x h 4 1 C SPACE ) /<— T'^TF 
£ — B^it. C BREAK ) * — X 
tp±X£ b. 


BUB • TRSi tWlt. 


FM8 • ^X tWlt. tztd L,^- 
7— fzt£, LIST, ti 
7 — <n £2 £ A: 3: <?) 1*1 # £ "C £ 
&. 

• B^4 3 ±(i (esc) a- — . 


PSP -APL^fnlb. fzti L, i® 
ffi(c23TfTo^ L Tf?±. 3<7> 
i: £«fct+fct**l«r, ( RETURN ) 
^r — £, K • 1> if 

XtjXb. 


PC88 • TRSi tWlt. tzt* L, 
( * ) + *) l- 

&z.b. 


N52 • &*X<r>$£ff<ntpjkizU 

(CTL)^ - i: (3B^ - £ I»I B# U 
W *L. 

• Vo ?'7 aHTt 4 i (- 7 — £ 

tzt£ *::$:<7>F*3^ 

£ LIST. -C^T*£&. 


PC6 

• *X twit. 

MLT 


HC 

• ( PAUSE ) X 

— 

±X£. ( BREAK ) X'tpWr 

Xb b 


■ LIST 

“COMO : ** T'RS-232C 

- 

*7° d /7A ■ U x h 

i~ b . 



FP1 1 -TRSni:[tJb. tZ L , 


7°u <J) ij X V LIST 


( . ) it BAsicfr&mzm^tzft 

• ( STOP ) * — T+Wr. 

• ^X 7 - K£ f lS:^£ tlX^h £ £ 
It ') X b frttlZ*,'. 


SMC * PC88 £ [W] t . tz tz L , 

( , ) SAVE/P T'-fe 

— -TZ1X tzTv /7Ali U X b rt* 


MZ35 

■ PC3 £Wlt. 

XI Hu 

• (-) 0 (3 ( , ) (± 

1£;i£rv 

\ 

• LIST “ 

TEST” t7 r >f 'KT) >J 

X b tf£tlh. 

MB1 6 

■ TRSi tl^JL. ttz. 

LIST 

ff — ?T, “7 7 >f^i5E” 

*J x b h. 

IBM55 

• MB16 <L IWJ b. 

PC100 

■ PC88 £ [S] L . tzt* L, 

-7^<j\slzl± * < T 1> «t v\ 

MSX 

TRS, £|hJL. 



- 53 - 


UXS 


54 


»J X V EPffilJ LLIST 


M& : LLIST 


100 -150 

i 1 | i 1| 


mm 

4*« 


-tv /7A^yj > rizthtj-fz. 


/ X 'J .hcr>~Tv • 'J X h £-*•• 


T-xu > 

2 BHi&frflMT-. 

£, *<so*£fflfcft+-/tj > 9izn ibfo-f. 

3 132 'X^<D^<T)'T IJ > 9 ^rfS^LTV'-C, zcr>v-z>> V<T>'Mff 

&1feb‘ h K • L £'•£>. 

4 yo /7AfK*i f ! ii x & h { , Zen t £ltz<nv-?> Y L 
-T ih th. ttz, Z(T>t £$l&i±fd!x&V'. 

5 LIST i:|Kjb. (-) cof KbOlz ( , ) i> 
1 &Z.&. 

"7 □ y h &$£;K— K £&L&tf'<v 3 > • ,-k- K.h<o«La*a. 


:/ □ 7' Atfii : ^□i/5A©u^.i' : &^'j>5’ic,'iWj-r-5 

10 REM *** TEST PROGRAM *** 

20 REM *** FOR LLIST COMMAND *** 
30 LLIST: END 


m ?f m 

10 REM *** TEST PROGRAM *** 
20 REM *** FOR LLIST COMMAND *** 
30 LLIST: END 


#fis : list 


IJU • U7h 


APL 

•xo 7 H’ #2 

— 7 i 

-X • i]— YWhhtiki* 

PR#2£ L, LIST, 4 1 ,K(i PR#0. 

TRSi 

• (-)X»ft^‘) U( , ){±^ 

"T. 


CPM 

• TRSi tmt. 


M223 LIST ’POUT, 3, 100, 2, 
150 

• $81 <r>^\ ttr'J > 9<T>X: — K £ 
til Vii-t h . \\ntAi t W ihff £ X) HI] 
d &• d| (#0) £ A ti 6 . 


MZK LIST/P 100, 150 


CBM LIST 100-200 

• Z OPENn, 4 "C, 

Msmfc-^r nW7rU^, 

X #^-4 X)-/ ij > X d T — 7> L 

T, CMD4T' - 7 D| ) > PllMW&ft' 

i - . 

• Ztl h>(t, 7 'd/ 7A TL^CtTT 

£ S. 


PCS 


TRSii 

• TRSi tlHjt. 

PC3 

LIST PRINT 100, 150 

• tikf&utttmt. tzts l. 

C S A V E @ X-t — -T L *1-7*0 /7 

^-v'. 

if8 2 

• TRSi £IsJL. 


LIST “LPTO: ", 100-150 

fST ') > ? £(± LPTO : ~ 2 : 

v >-?( , )£$: 

o X L J: v'. 


Cl 80 LIST 100, 150, $ LP 


• ffifeittttmu. 


M243 

• M223 tmt. 

MZB 

• mzk tmt. 

BUB 

• TRSi tmt. 


FM8 LIST “LPTO : ", 100 200 
• “LPTO : " T'7“ U > 9 LPTO : d 

tmt. 


PSP LIST# 50, 100 


PC88 • TRSi tmt. tzt* L, 

( * ) + 7 £ tr #77 x> ft ;b ‘J 
d f*ii x & . 


N52 * ~T v /7A’ 'J X b ^ f '7 p U 

> ?lz&ti$tl&Z t 
o^>> KX)fvliv>^i(iN52c7) r LISTj 

v > y tmt xh h . 


PC6 

• **tmt. 

MLT 

• ^tmt. 

HC- 

- ^ tmt. 

FP1 1 

• list <r>mi>^w. 

SMC • PC88 tmt . LIST <r> 

JKL #M, 

MZ35 

• pc 3 tmt. 

XI Hu 

(,) 

• *:fc*pi| t. 
lti% Z. 

MB1 6 

• TRS, 


IBM55 -TRS, £EJt. 


ij X h EPffilJ LLIST 


55 

XJb • U7.K 


PC100 • PC88 tmt. tzfz'L, 

=7'<)\'<nw jtc * (i^c < X b J: v*. 

MSX • TRSi tmt. 
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fT#-§-0>SS RENUM 


: RENUM 70, 170, 20 

I 1,1 II I 


mm : 

nm ; i RENUM < $JfL < Ittt &&*frJ60fr #-*§*( , ), 

7=7 #rb < 

2 RENUM (i, GOTO, GOSUB, THEN, ON-GOTO, ON- 

GOSUB, ERL tczx * tf «r L L T 

“Unde- 
fined line xxxx in yyyy ” cO j. 7 ^'tfc ft £ ft £ # ~ <7) t £ xxxx 

f± RENUM (3**W$ft$r^. 

3 RENUM fi, -To 

4 RENUM (i, 65529Lt_b60Tf#-*5*$: ’ 60 t 2 "Ille- 

gal function call” J- =7 — ftlokZ-h. 

5 RENUM 60^ /-jf <Mt#-5H0t!?‘ t Ke h . 


^ *T 0>J : U^r^rlft^(DZfn^^/^^, 1f#^* 107^*0*8 frZO 

r^si-T'S. 

list 

1 FOR 1=1 TO 10 
15 PRINT ,, ^ ,, .= 

100 NEXT I 

1 50 END 

O iu 

r~«== nu rn ly, l .. 20 

0 kH 

1 ist 

10 FOR 1=1 TO lO 

30 F'R I NT ” #= ” 

§0 NEXT I 

70 END 


: NO LIST, KEYlist 


u j-yj\— 


APL 

— 

TRSi 


CPM 

• ***131;. 

M223 RENUM 70 T 170, 5 

^60^?#-^, T, Sfrb^ftRO 
k#^*, ( , ), ^#^*<7) if#, 60 
HIM. ^cofl&fi^sc^iwjb. 

MZK 

- 

CBM 

- 

PC 8 


TRSn 


PC3 REN 70, 10 

• ^7RO^t#-^- 70, ^lOT'ro/ 

£ 4*v\ 

IF 82 

•ttt mt. 

. *3c£|wjb. 

C180 RENUMBER 70, 20 

• 8M6I1PC3 *I3U. 

M243 

• M223 tmt. 

MZB 

- 

BUB 

• **<>:l5]b. 

FM 8 

• f? #* 5 §*(± 0 -63999. 

PSP 


PC 88 

• £ fn] b. 

N52 

• Wffi. 2 “C yyyy li RENUM 


I 

RENUM !± 65000 1 

-f- S’ S££-f 4 w i f± T- # & v \ 


PC 6 RENUM 1000, 100 

• ig#fil0lcgl5E 

2ft 6. 

MLT 


HC 


FP1 1 

• fT#-^<7>^*(i 64999. 

SMC 

• t oT. 

MZ35 REN 70, 170, 20 
• Wffi.4 T' 99999 itfi, 13M& 5 
[ii7-. 

XI Hu 

tch. 

* -*-7 — 

• ^«T#-S§*(i 65535 *3 

• / •/ *fe — 

MB16 

• *:£<!: fsJb. 

IBM55 


PC 100 


MSX 

■ ***131;. 


DELETE 


: DELETE 70 -170 

I 1 1 | 


'<~7 / — 9 


*Efgfc : 1 DELETE <7)t&5t(±, ( , ) £fcl* 

(-), nmttz^w&n'tf&^nm. 

2 *lwo4f#-^*rtt£*&5£Lfc£ £i±, 

3 # ti, X'^-t^X 

conz&mirb. 


H fr 




10 FOR 1=1 TO 10 

20 PRINT "SQRT< " .; I ; " >=" ; SQRC I > 

30 BEEP 1 

40 BEEP 0 

50 NEXT I 

Oki 

DELETE 30-40 

Okl 

LIST 

10 FOR 1=1 TO 10 

20 PRINT "SQRTC " .; I ; " >=" ; SQR< I ) 

50 NEXT I 


#gB : NEW 
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TU— h 


APL DEL 70, 170 

FM8 • {-)£tzl±( , f 

fc-fbt, ti 

b. 

TRSt • ( , 

PSP • D 70, 

T70ffJUBfca f ra*-e£ a. 

cpm • trsi tmt. 

M223 70, 170 

• lo-xwmm-t^xznmx'Z 
b. 

PC88 • TRSi £|W]b. 

N52 • b In] b. 

MZK — 

PC6 — 

CBM — 

MLT • TRSi tmt. 

PC8 • ^#RU. 

hc -ttt mt. 

TRSn • TRSi tWlt. tzt' L, 

7"d ?'-7 L £: 

ZtlZ^Z. 

fpi i • tttmt. 

SMC • TRSi tmt. tzt* L, 

mk<r >'\ £ ^w&i" & £ ** 

tilfcb 0 £ T*. 

PC3 • (-) 

MZ35 • PC3 b I«] b. fcfcfL, & 

m2, 3(±f£;c&*V'. 

if 8 2 i trsi tmt. 

XI Hu -DELETE, T'^rMlJI^ 

Ztlb. 

• #■*: £ |H] t . 

C180 DELETE 70, 170, * 

•J&aWfUi, 

-^*, i|*f£<7MT#^h (*). 

8IJI&. * t 'll £ £»& L 

• P LO A D ZtlX^'b BIJ v“ o 

PDELETE 
“AFILE” Zm^'b. 

MB1 6 • TRS, £ |WJ b. 

IBM55 • TRSi tmt. 

pcioo • trsi tmt. 

MSX • TRS! tmt. 


M243 • M223 <h fW] b . 

MZB • fc-Xt IW] t. 

BUB • TRSi tmt. 


NO LIST 


Mit : NO LIST 70, 170 


ic-f a. 

W# : 1 NO LIST *>*&5e{±, a y ^ n L ^^*7°ar ^ ACO^TJCo^f#-^-, 

( , ), 

2 RENUM Lfc&, NO LIST, #t/ RENUM KEY cn^ 

ftx'—m<x>mmz&b. z<x>t z , key 

T—9X\ (KEY) lz%b. 

3 -7°o /7 A^d y LOCK ! &. 

4 KEYn-7>K^f9. 

5 re? ^AO**^Ofca6ic«fiJ’C*4. 

I ”n-y* _hge<7>8fcfig£ifc*:Tc. £ £o y ^t4, iiV'L 


H fir 


IF 

PR 

GO' 

PR 

60' 

END 


♦LIST 
16 
26 
36 
40 
56 
60 
?0 

#RENUM 

*N0 LIST 26,60 

*KEY 123 
LOCK ! 

*LIST 
16 
76 

#KEV 789 
NO ! 

#KEY 123 

*LI$T 


A 1C NO LIST-rD'V^^^lt, 
Id ct t> T □ "J X> ^>. 


MICKEY 


INPUT "A=" 


A = 18 OR A 
NT "FALSE ! " 
0 10 

NT "TRUE ! " 

0 16 


8 THEN GOTO 50 


INPUT "A=" 
END 


10 
20 
30 
46 
50 
60 
76 

KEYo „* 


INPUT "A=" 


IF A 


= 18 OR A = 8 THEN GOTO 

— , „ 


PRINT "FALSE 
GOTO 16 
PRINT "TRUE ! " 
GOTO 16 
END 


56 


y- • uxh 


APL — 

N52 — 

TRSi — 

PC 6 — 

CPM — 

MLT — 

M223 • #:£# m. 

HC — 

MZK — 

FP1 1 • PASS ft* NO LIST t 

KEY 

7 Sri-4. 

CBM — 

PC 8 — 

SMC • SAVE/P TU X h Sr ttl 

%<-fbZtfrX-£b. 

TRSn — 

MZ35 — 

PC3 • CSAVE@ “C-fe— ' -7-th 

***«*««# Sil 4. 

XI Hu — 

IF 82 — 

MB1 6 — 

u~uu 3 — 

IBM55 — 

Cl 80 — 

PCI 00 — 

M243 - tttmi:. 

MSX — 

MZB — 


BUB — 

FM 8 UN LIST 70 

• ftfcltzmmt: ') x h X^Kt^. 

• un list mnmsAVETz t § 
ti, 

• m^i~b key izmm 

m&V'. tzt: TL, 

POKE &H1E7, &HFF 
POKE &H1E8, &HFF 
X'lTZ. b. 

PSP — 

PC 88 — 


*-<*>»:!£ key q .^ 


: key £ 

: Ug-tiHS-^ (A - — ) <7>*§5e£: no LIST -effort: o v 
• 1 RENUM, NO LIST, RENUM, KEY (nmi'Efy, KEY cr>m^ 

2 ro/9AW#!!fifi^t4±t, NO LIST 

(KEY) *ftJo-Cv^**t± f KEY <7)f£td ~ 

NO LIST Tffofcn.y ? 


* ff 


; •^□'7^ A Id NO LIST T'D'V 'P&tl'Vt, ifcfc 
XU"j 


KEY 


f-LIST 
1 0 
20 

INPUT 

"A=" ; A 

IF A 

= 18 OR A 

30 

PRINT 

"FALSE ! 1 

40 

GOTO 

10 

50 

PRINT 

"TRUE ! 

60 

GOTO 

10 

70 

END 



50 


*RENUM 
*N0 LIST 20,60 
*KEV 123 
LOCK ! 

*LIST 
10 
70 


INPUT "A=" 
END 


#KEY 789 
NO ! 

#KEV 123 
♦LIST 
10 
20 
30 
40 
50 
60 
70 


IF^A^ = A Is 6 p A A = 8 THEN GOTO 50 
PRINT "FALSE !" 

GOTO 10 
PRINT "TRUE ! 

GOTO 10 

END 


FjjB : NO LIST 


. K? >V 
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APL — 

FP1 1 PASS ALL “CASIO” 

• NO LIST t KEY £ 

h. 

• ALL t PROG0 fr h 

PROG9 £ 'Wik’fv /7A-x 

<n jc. ij 7 <r>£h. 

• /U7- Kii 1 ^ 8 

^■3ac7) ( ” ) 

TRS i — 

CPM — 

M223 • «C#M. 

MZK — 

CBM — 

PC 8 — 

SMC — 

TRSn — 

MZ35 — 

PC3 — 

XI Hu — 

IF 82 — 

MB1 6 — 

U^<7U 3 — 

IBM55 — 

Cl 80 — 

PC100 — 

M243 

MSX — 

MZB — 


BUB — 

FM 8 POKE &H1E7, &HFF 

POKE &H1E8, &HFF 

*C?T X. i> . 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 

HC — 
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+ — h*AtH7)'> i jl U— h KEY 0 

Mit : KEYO, “LIST” + CHR$ (13) 

: 7-0 i u— h -£'# a 

4 *« : 1 a * tc £ z>jc&mtezjc&£’c. 

2 ro/7A^m INKEY$ 


^ fr m : Jz— tK— d_ U — h^i±-5. 

KEY© . "FOR 1=1 TO 3.-PRINT I : :NEXT I " +CHR£< 13> 

FOR 1=1 TO 3 : PRINT I : :NEXT I 
1 2 3 

OK 


• tz'D 


APL — 

SMC — 

TRS i — 

MZ35 — 

CPM — 

XI Hu • *3c0m. 

M223 — 

MB1 6 — 

MZK — 

IBM55 — 

CBM — 

PC100 — 

PC 8 — 

MSX — 

TRS u - 

| 

PC3 — 

IF 82 — 

l -"<Jls3 — 

C180 — 

M243 — 

MZB — 

BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 

HC 

FP11 — 


y°U 7=7 A • X ij YOy-^J l)#*. LOGIN 

Mit : LOGIN 3 , R 

ya^7A*/ i£Bg.pX 
xijTff 

: rn/yA- x 'J 7 

4 ^^: i 7 *d/7a • ^'jr^5Eo{c^tijL'C^?»<7)“C, 
(7)7 , a/7AA f Mt^^. 

2 x U 7-li 1 *» S> 5 

3 NEW, LIST, LOAD, SAVE (i, LOGIN Sn.'tV'* 

x 'J 

4 R^-rv' 3 0 , yn^A-x'iT^Ofx.^:#) 

£, %<n~ru 7=7 

5 ro/7A^^Ol t£{C(±, TITLE 

6 7o/7A • x>J7<^ffl;i*&^^(± STAT (c. J: 9 fr 7 . 


m ft v u : mfez 

-j □ ^A^AoTl''?)C. cL <2)^. 


LOGIN 1 
Pi: 

LOGIN 2 
P2: 


183 Bytes 
94 Bytes 


#SS : pcopy 


- 61 - 


APL 

— 


TRSi 

- 


CPM 

- 


M223 

- 


MZK 

- 


CBM 

— 


PC 8 

- 


TRS,i 

- 


PC3 

- 


IF 82 

— 


1"<JI*3 

- 


C180 

- 


M243 

- 


MZB 

— 


BUB 

- 


FM 8 

— 


PSP 

- 


PC 88 

- 


N52 

- 


PC 6 

- 


MLT 

— . 


HC 



FP1 1 

PROG 3 



□ o<y_ 

-f'o 7=7 A • X. ij 7 #-^7 t± 0 i)' *o 
9 *C#> -6 . 

zj -s* > K f# *b £: i* -6 . 
SYSTEMCi'J^yn/^A * 

.x U il2>. 
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li*'(7)7°n ? m i) T{,zy°n ? vA£:a t°- 

Mi£ : PCOPY 3 

7°o /7A • jc. IJ T#-^- 

I BASIC c7)Va ^ A • x. «J TtC =J t °— t & 

: 1 yo^A-xiJT $ ^LT V' h C0*C, — oc7)x ij 

Tfr tillfr<7)JL ij 7Iw7°o ^7 a£ n t° — f # &. 

2 n^:x 'J 71: r □ /7 L t ^ JJL&o 7*>f 

>?tltv^7a/7A • iU7{:7n/7A^^i|^(:|i: 

-^7— £ 


* 


br 19] : Z?nl7z>/± • XU P 1 ICA^-C^'5^D^A£2'\ 

□ £— u uxhiCcfcust^^. 


100 REM****** PCOPV TEST 
PROGRAM ****** 

110 REM JJ? m D1"7C<? PROGR 
AMll>7 1 1 

120 REM 4V>PR0GRAMIV7 2 
fi" 7YfTiOh? 


130 REM 3L>fly > PCOPV 2 7 V 
"'•j3*j, 3t a - 


140 REM nwl)? 3i^liyib. 
SIAT 2 


P2: 

COPV 


0 Bytes 


PCOPV 2 
COPV 


LOGIN 2 
P2: 

COPV 


157 Byte 


LIST 

100 REM****** PCOPV TEST 
PROGRAM ****** 

110 REM PROGR 

AMIV7 1 ; 

120 REM TU, PROGRAMS 7 2 
IT' 7Tf f il'3l7 

130 REM 3E>fjy , PCOPV 2 9 i; 

"•iGOl*, □t°- 

148 REM 1l/9lJ9 3L>JjyiU 0 

#flg : LOGIN, STAT 


PCOPY tl°— . Z)tT— 


APL 

— 

•i'jriCA^TV' 
470/7 A$r2 / ^3t°— L, 'J 
xFCi') {£*> & . 

TRSi 

- 

CPM 

- 

SMC — 

M223 

- 

MZ35 — 

MZK 

- 

XI Hu — 

CBM 

- 

MB16 — 

PC 8 

- 

IBM55 — 

TRS n 

- 

PC100 — 

PC3 

- 

MSX — 

IF 82 

- 



- 


C180 

- 


M243 

— 


MZB 

- 


BUB 

— 


FM 8 

- 


PSP 

- 


PC 88 

- 


N52 

- 


PC 6 

- 


MLT 

- 


HC 



FP1 1 

MOVE PROG3 



mR* rem 


: REM • • • • BASIC • • • • 

s£fK:Sc 

: 1 mktoM : )«i»t4rv><7)-effi3ft. 

2 KtlXti < t, yo/7A£7)fV<7/^')^ 
f < 4* -6 . 

3 REM <F><Xt> *) d-fc ~ 9 * —-T — '^ a >( ’ ) 6$IM 

*,#>■£> (x>tK^^3^#R9.). 


yp : rem, ( ’ 

10 rem basic 

20 * PROGRAM 


30 1=3 

40 LPRINT " I = " > I 
50 END 


m ft m 

1= 3 


#bb : io^KJb 
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APL 


TRS i 

• mctmt. 

CPM 

• «tigb. 

M223 

• ( / ) t( ! W REM C7>^t 

h') IZ 


MZK 


CBM 

•tth Wt. 

PC 8 


TRSu 

• **tigb. 

PC3 

. ( I )£ REM 0 tc 

m.mx-£b. 

IF 82 

• *:fct igb. 

Is'ZJl' 3 

• tttmt. 

C180 

• PC3 tigb. 

M243 

• M223 tmt. 

MZB 

• **tRlb. 

BUB 

• *:fctigb. 

FM 8 

• ^tigb. 

PSP 

• ( ’ ) <n\,i*'\z ( * ) b 

REM <7)ft;b *) &. 

PC 88 

• «ttRlb. 

N52 


PC 6 

• *:fc.fcigb. 


MLT • REM^CO x 1 

'& 1 S. 


U^— C7 


HC 

• ^ttlslb. 


FP1 1 



SMC 

• *>■*!. 


MZ35 

• PC3 t l«] b. 


XI Hu 

• ^*trab. 


MB1 6 



IBM55 

• tttmt. 


PC 100 

• &■% t ig b . 


MSX 

• t ig b. 
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ffih STOP 


: stop 

$£#6 : Xff'P^Va 7 ; 7J*&W±L, =>-7> K • i s-</utz {, £*£ 

$Sit : i 7°o J:^. 

2 STOP t'X<r>S -y-fe— BREAK 

IN nnnn (Lr#^) 

3 STOP itfi *7 r ^ ;u£ ? u — X* U L 

4 CONT KtCj: •) , 7° a 

5 7"o /7A^r/<7 micro > h 

fc PRINT it^dr'd: Aft-CL;#, ^Lfoyn ?'ta£||*tL 

< dMM*iJ'C*>&. 

^In : "*a-x *—r>$tlte-7 T '(>\slzm,x, 

•5) w i . 


70 n : lr#^30ICSTOP££-<}5^, ^□^AtD^T^ 

C r-^ff.ih^-t±^>. &±'&, CONT £- AJj U T^D ^7 


10 

1=3 

20 

PRINT 

30 

STOP 

40 

1 = 1*2 

50 

PRINT 

60 

END 


m 'if m 


run 


3 

Break in 38| 
0k| 
cont 
6 

0k| 


#jjg : CONT, END 


Ahi/A 


APL 


TRS, 

• tttmt. 

CPM 


M223 *Altd:|H]L:. tzK TL, ^ 

7Fl"& ^ -y -fe — STOP AT 

THE LINE NO. nnnn 

MZK 

• ■*-%£ mt. 

CBM 

• Aitd: rat. 

PC 8 

• Ait#!HL 

TRSn 

• Altd:|WIb. 

PC3 

• Aitd:pgb. 

IF 82 

• Aitd: IhJL. 


• Aitd: fflt. 

Cl 80 • AltdrlHJl;. tzt' L, m 

TTci - h / v -t—yit, eioo x r b 
h. 

M243 

• M223 tfflt. 

MZB 

•Aitd: fWJt. 

BUB 

• Alt d: |HJ t . 

FM 8 

• Ait LlHjb. 

PSP 

•y-fe — 

• Aitd: fW] t. tzt* L, X 

PC 88 

• Ait d: IhJ t . 

N52 

• Ait d: IWJ b. 

PC 6 

• Alt d: IWJ t. 


MLT • |H)b. 


HC 

• Aitd: [alb. 

FP1 1 •y'y-fe — iSli, Stop PR 

OG n (ra /7A • -x. 1 ; T#f) 
in nnnn (fr# - ^*). 

SMC 

• AltdrfWJb. 

MZ35 

• PSP drlHjb. 

XI Hu 

• Aitdrl^b. 

MB1 6 

• «:iliJt. 

IBM55 

• Aitd:[H]b. 

PC 100 

• AitdrlHjb. 

MSX 

• Aitdrl^b. 


Zfu cont 


: CONT 

: ( STOP ) * — LTIf, ifcli STOP, END J: o X 

i $ ikLX ''' tz ~7 'a Yy AOTSSHt . 

: i ifcli STOP*, ENDt^t^b^a/ 

2 INPUT -Xitj'hn'fv >-TY X) -X Zltitl Lfz&, &±L tz £ £ 

fi, yD>y 'j > Fts t z 

h. 

3 ya^A^i^l:, 7°o £ # CONT 

4 CONT (i, STOP Set t 7“d/7A^tI? 

it4>lz, 9*4 \s 9 Y • ^ — K • XT— h y > Me J: + 

>1 i : £>" C £, T^'v S . 

09 fj| * "-?n>-9Y *-tf-KA7j£#0Aft£i|Mi*‘T'£TV'£~£ 


*T #J : — NFf^ihUfc^a^A^-, CONT X<k(D~$C.tl' i b^r% 
'9 f ~ t ^>. 


r“u n 

A==V 1 1 . 

B rea k x n 
O k * 

?a 
1 1 
Oki 
co n t 

A squared 

Okl 


>01 


FfiB ; STOP, END, GOTO 


APL • ** i 13 U . 


TRS i 

• met IhJI:. 

CPM 

• tttfflt. 

M223 

• t. 

MZK 

• *9:t fflt. 

CBM 

• twit. 

PC 8 

• #-£#{«*. 

TRSn 



PC3 CONT n „r s 


7^ £tzl&, ~7 'i > 

• y'Ov s h . 

CONTx > f £ i - (/) £} b ^ 1 ~ & £ 1 


IF 82 

•tttfflt. 

U* 

• ^ictWlt. 

Cl 80 

• CONTc7)ft;b •) l:(ENT) 

M243 

• twit. 

MZB 

• tttfflt. 

BUB 

• *1ct wit. 

FM 8 • *-$C t IWJ t . tz t* L , 

INPUT, ^ tzli GCURSOR 9iXr 
fztZlt, %<n-X<r> 
bhshfr -£>. 


psp • tzt' L , - 7 “ 

o/7A«li ( CTRL ) * — 
£ C STOP ) ^r— A*-T 

&A>, STOP:fc<Oil*T C cfc & . 


PC 88 -**£1^1:. 


N52 

• ttCtWlt. 

PC 6 

• tttfflt. 

MLT 

• *-xtmt. 

HC 

• T>; > 9, t)Jz v Y<F)K 

CONT(cJ:& 

H4fWHIi-C£*rv*. 

FP1 1 

• ***ra t. 

SMC 

• END 

MZ35 

• Metis! t. 

XI Hu 

• Tilsit, tzti L, 7- 

0 /7 ACO + HUffifSHIFT) + 

( break!. 

MB1 6 

• «il5]l:. 

IBM55 

• *:££I5]U. 

PC100 


MSX 

• tttWlt. 
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■J 


-fu y =7 A < 7 )$* 7 END 


: END 

mm : /7A^^T L, t^“C =i 

K • u^/Hz 

1 END tli 7“ D /7 A til: I) I) ^ < , Mlf L t 
&J:V'60T\ *Td cojfuS: i'U 

’XXtlXte < t , rn/7A^)M^^|fS. 

ffiio .* ro T7A*T'«S') iSLTff — 3W-/D/7AiL -cm 

v\ •MS.-ltf. *<7>7*u r? A &OT&-C {,£(?*?£ * J: -5 U Ltz t«o. 


^"-7A0IJ : TJn^A + lCEND 
10 1 = 3 

20 ON 1-2 GOTO 40,70 


30 

END 





40 

50 

60 

LPRINT 
1 = 4 

GOTO 20 

"LINE 

NO. 

40 

CM 

1 

s 

II 

CM 

1 

70 

80 

LPRINT 

END 

"LINE 

Z 

o 

70 

1-2= " ; 1-2 


■m ft m 




LINE 

NO. 

40 

1-2= 1 

LINE 

NO. 

70 

1-2= 2 


#flg : stop 


I>F 


APL 

•tth rat. 

TRSi 


CPM 


M223 

• h / > K: 

END t NO END MARK 

tf&TfiZt 16. 

MZK 


CBM 


PC 8 


TRSii 


PC3 

• ±7°a rv 

o*rit*< . 

IF 82 

• £ * i IBJ t . 

U" 

• *■* t [hj b . 

Cl 80 

• PC3 tmt. 

M243 

• M223 tmt. 

MZB 


BUB 

• [hjl. 

FM 8 

• #:££iwjt;. 

PSP 


PC 88 


N52 


PC 6 

• *-*: t mt. 


MLT • *:fc£|iaU. 


HC • t R b . 


fpii 


SMC 

END*£mft'fZ> t. 

* End * 


MZ35 


XI Hu 

mt. 

MB1 6 

*-Xt \s]t. 

IBM55 • 

*-xt rat. 

PC100 • 

ttkWI t. 

MSX 



•ftA3C LET 


: LET A=B+C*2 

I I — . , 

m&L& a 

WSflfcMKgg&Sft*. 

7 — t & h . “TYPE mismatch". 
3 LET (i £ < & . 


■7 0 □ y -7 a^iJ : i * 2+ j ^ i icftA-r-s. 


10 

1=3: J=5 


20 

GOSUB 60 


30 

LET I=I*2+J 


40 

LPRINT ,, I = ".- 

I 

50 

END 


60 

LPRINT "SUB 

60 

70 

RETURN 


IS 

ft #J 



SUB 60 1= 3 

1= H 


#*!§ : mmm± 
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APL 

**£1511:. 

TRSi 

**£151 b. 

CPM 

**£1511:. 

M223 


fefcliisj tM#C 

&*V'. 


• • 3*7>KiL -C^t 

h. 

:fi, SET A = 10 

MZK 

** tWlt. 

CBM 

**£ 151b. 

PC8 

**#!$.. 

TRSn 

**£151 b. 

PC3 

**£1511:. 

IF82 

** £ 15] b. 

l SAJI'S 

• ** £ I5J b . 

Cl 80 LET. — .A = B + C * 2 

• LET cr>m~'4L&fi i '& ] £. 

• 2£fi&:£*-/ : ffcb X l tj K^$c, 

MOVE 

E $ = A + 3 [2 3 

M243 

• M223 £ 15J b 

MZB 

• ** £ 151 1 . 

BUB 

• **£1511:. 

FM8 

• ** £ 151 b. 

PSP 

• **£1511:. 

PC88 

• **£I51b. 


b'VS 


N52 

• **£|5Jb. 

PC6 

• **£1511:. 

MLT 

• **£151 b. 

HC 

• **£15] b . 

FP1 1 

• **£[51 b. 

SMC 

• ** £ 15] b . 

MZ35 

• ** £ 153 13 . 

XI Hu 

• 

MB1 6 

• ** £ I5J b. 

IBM55 

• ** £ 151 b. 

PC 100 

• **£15Jb. 

MSX 

• ** £ 151 b. 


68 


*f ~ 7 b CD At) READ 


: READ A, E$, B (5) 

I 1 

*£«& • *fc»)£LTir 

• vataxx mmzx +>x%>, 

: 1 READ Xlt, V'O*, DATA X t 

h &* ^ ' . 

DATA SfcLTV'frl+fUf* 

3 — :><7) READ DATA XtmMLtz 0 (zcr>i%&li 

), W&L<r> READ Xrf— o<D DATA 
L Tz')XhZt 7b f X"£* 6. 


-?U?-7 A0IJ ! READ X, DATA X , RESTORE 

m. 

10 DIM A (5) 

20 FOR 1=1 TO 5 
30 READ A(I) 

40 LPRINT A(I); 

50 NEXT I: LPRINT 
60 RESTORE 100 
70 READ A1 
SO LPRINT A1 
90 DATA 1 ,2,3,4 
100 DATA 100 
110 END 


m ft m 

1 2 3 4 100 

100 


#J% : DATA, RESTORE 


U-K 


APL 



TRS i 

• *Xt\ Hit. 


CPM 

• *xt mt. 


M223 



MZK 

• *X£fflt. 


CBM 

• *Xt \s]t. 


PC 8 

• *x&m. 


TRSn 

• *xt\s)t. 


PC3 



IF 82 

• *X£ fflt. 


l"<Jls 3 

• *-££1*11:. 


C180 

• *xtmt. 


M243 



MZB 

• ** trait. 


BUB 

• *xtmt. 


FM 8 

■ **i|B]t. 


PSP 

• *xt mt. 


PC 88 

• *xtmt. 


N52 

• *xt mt. 


PC 6 



MLT 

• **£|Slb. 


HC 



FP1 1 




SMC -*X£\5l t. 


MZ35 

• **i|B]t. 

XI Hu 

DTL 

• DATA 

MB16 

• *Xtmt. 

IBM55 

• *xtmt. 

PC 100 

■ tint. 

MSX 

• *xt mt. 


T—9 3L DATA 


M3. : DATA 100, 200, $zr 

I I 

• @k>)ML «r 

: READ^-e^m^n-s^t, 

%$Wi • 1 DATA#(i, 

2 —0(7) DATA# i±, 1 *t(:: A6/blt<7)5e$c£ Aft 6 C. tt*X'£ 
Z> . 

3 DATA #tz(i@l5E/J'3&.£, J: 

aWiittSftfrV'. , x 

4 DATA =>>-?(,), -fe=3 0>( ; ) 

(”) t'E 

•gj 9 , * ftJiW^^f* 9 1 J*-CE« i> &m* 

5 ^cg(7)T'— ffthh £ £, %r — jK— K£*«o Aft1~6'J&^ 

*< &- v * (7) TiM *IJ T'& 6 . 


! READ #, DATA#, RESTORE #£- 11 <^^^)i± 

fcfr 1 

10 READ A1 ,A2,E1*,E2* 

20 LPRINT A1 ;A2;TAB(5> ;E1*;E2* 

30 RESTORE 70 
40 READ E1*,E2* 

50 LPRINT E i $ ; E 2% 

60 DATA 10,100 
70 DATA 9f, u 33" 

SO END 


m ?t m 

10 100 9f 33 

9 7 33 


: read, restore 


69 - 


T-? 


HC 

• *#2 mt. 

FP1 1 

• ^-Jct |Hl t. 

SMC 

••b;3D 4* 

MZ35 

• M223 £ mt. 

XI Hu 

• *#2 not. 

MB1 6 

• ^#2 |p] b. 

IBM55 

• *#2l5]b. 

PC100 

• *#£|5]b. 

MSX 

• *#2IW]b. 


APL 

• *# £ 15] b . 

TRSi 

• *-Jc£mt. 

CPM 

• In] b. 

M223 

■ $:*ilSJt. fcfft, * 

■f-mtsmft ( ” ) -cHtf. 

MZK 

• |WJ b. 

CBM 

• *#2f5]b. 

PC 8 


TRS„ 

• ^#£l5Jb. 

PC3 

• *-x£m b. 

IF 82 

• *#2l3b. 


• ;£#£: [5] b. 

C180 

• ## £ |Hj b . tzt* L, 2 

i ££-tz.7*T — '> 3 > 

( ’ ) 

fil«r< tJ:v\ 

M243 

• M223 iilllb. 

MZB 

• ^#£lH]b. 

BUB 

• *# 2 iw]b. 

FM 8 

• ^#ilH]b. 

PSP 

• tttmt. 

PC 88 

• T:#2[5]b. 

N52 

• £ iwi b. 

PC 6 

• *#£|H]b. 

MLT 
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Ltt«(Z)»3e RESTORE 


: RESTORE 100 

i i 

W8& : DATA (*&5£Lfcfr#-^) * J: -5 l:t * . 

4#^: 1 RESTORE k, *<0<fctf)READ *^ 0/7 

^ + DATA :££>£> 

2 trS^Sr^i-S t, ^CO^XCT) READ 
cr> DATA -$zfr io i ill f . 

3 rab DATA:fc£0rj£&SM,*r») f 1£&<0 READ 3ca*-OCD 

DATA 0 -t&ftlZ&v 


D 9 -7 J *® lj : READ £, DATA #, RESTORE 

«. 

10 DIM A (5) 

20 FOR 1=1 TO 5 
30 READ A ( I ) 

40 LPRINT A ( I ) ; 

50 NEXT I : LPRINT 
60 RESTORE 100 
70 READ A1 
SO LPRINT A1 
90 DATA 1,2.- 3, 4 
100 DATA 100 
110 END 

* *r m 

1 2 3 4 100 

100 


#J% I READ, DATA 


UXhP 


APL 

• ttkfflk. 

TRSi 

■ #*£1811:. 

CPM 


M223 

• *:fctrat.. 

MZK 

• #*£1811;. 

CBM 

• #*£ibh;. 

PC 8 


TRSi, 


PC3 

• ^^rab. 

IF 82 

• ttkfc ]t. 

l'^Jl'3 

• ^^CirfWJL. 

Cl 80 

• #*£ [ 8 ] t. 

M243 


MZB 

• #*£1811:. 

BUB 

• ttk fwjb. 

FM 8 

• *ifc£rab. 

PSP 

• RES £ fcifiH nT. 

PC 88 

• *:fc£rab. 

N52 

• ^^drlHlb. 

PC 6 

• **:k rab. 

MLT 

• #*£1811:. 

HC 

• i: foj b . 

FP1 1 

• **£rab. 


smc -^*trat. 


MZ35 

• *Xk rab. 

XI Hu 

• 0 tz ^'Ov 

£ M£;L6. 

MB1 6 

• #*£18)1:. 

IBM55 

• *:££[5]b. 

PC100 

• #*£1811:. 

MSX 

• **£rab. 


SWAP VALUE 


: SWAP Al, A2 

'■ Al £ A2 <?){*£■ 

: i figffilj®, X 

I' <)>7, s&i}£$k). fzf: ru, ^<7)“oco^|&^M^— iS:t-C 
^*<CW****. 

ftJ-C**. 


y p A0IJ ! “ADAM” £ “EVE” 

10 A** "ADAM" :B$=" AND " : C*="EVE" 
20 LPRINT A$SB$5C* 

30 SWAP A$, C$ 

40 LPRINT A$?B$?C$ 

50 END 


n it m 

ADAM AND EVE 
EVE AND ADAM 


#8H : 
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APL 

— 

TRSi. 

- 

CPM 

♦ fflt. 

M223 

- 

MZK 

• mzk <t) 

SWAP tltmZZ b < 7 )X*Jh h . 

CBM 

- 

PC8 


TRSii 

• *Xt iHjb. 

PC3 

- 

IF82 


L"<Jl *3 

■ **£1111;. 

Cl 80 

— 

M243 

- 

MZB 

• MZK t [Hjb. 

BUB 


FM8 


PSP 

— 

PC88 

• mt. 

N52 

• *-*:£ la] t. 

PC6 

- 

MLT 


HC 

• *■$:£ mt. 


xwy 


fpii 


SMC 


MZ35 

- 

XI Hu 

• met mt. 

MB1 6 

• tttmt. 

IBM55 

• tttmt. 

PC 100 

• metmt. 

MSX 

• **£!!?] t. 


DEFINT 


Kj& : DEPINT I — N , S-T 

S ’ 55 r, S« 8 -«')gU 

Slfil : 3 E®:< 7 )StSScSStcs e*H- 4 . 

WlUt : 1 SSfcfc^^iifcS^SESKitsrri. Si&Sfc^fi^fBcSO— 

3 Wlzznlfefc&ftiot,: < T fclSafe^f^Ai-iitdr, s&fctissfts 

H i< 0 # 5 e*cj: 

foZtlZ. 

4 % £ ftfln-£*f fc SE*kS» tc Je£-f & 9 

5 —32768 — f- 32767 i T'A^, 


zfntf- 7 /xifH :sr*&^««»^sfticttu, sEiicm^ftAu-c 
ma-rs. 

10 DEFINT S 
20 SEI= 3 . 141 592654 # 

30 PRINT " SEI = " ; SEI 
40 END 


IS *T tflj 


SEI* 3 


#flg : DEFSNG, DEFDBL, DEFSTR 


Ty^xy 


APL — 


TRSi 


CPM 

• ** t no t . 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 


TRSn 

• t. 

PC3 

• fc*ru * 

9i] + {T~s), 

OV' 

X itrA 

IF 82 

• *:fc£|WH;. 


Cl 80 

- 

M243 

- 

MZB 

- 

BUB 

• ^tiwii:. 

FM 8 


PSP 

- 

PC 88 


N52 


PC 6 

- 

MLT 



HC -ttrtmt. 


FP1 1 • ^MUCfloAT, DEFINT 

@ (i, 

1 -*Jf 5 c. 


SMC 


C, *£f&3(±£^. 

MZ35 

• PC3 £|W]t. 

XI Hu 


MB1 6 

• *:fc£i5j t. 

IBM55 

• ttctfflt. 

PC 100 

• 2|C*t [H]b. 

MSX 

• *3: tint. 


l«JR<Z>JtLfME4K£ DEFSNG 


l DEFSNG A-C , S-T 


*|§8fir : i 

<n i sc^-<n^. 

2 9«3c1-£. 

3 :&fc:L<7)^5E£;fT;b3: < -CfcSE#[ti-r^-C#«l««3KD»!aSkS6$ 

Z.<nnfe\z£ 

4 7^r^T'A^, ( 7«fSt±ia»£A$n*). 

5 **k»c ! *ftftl-*i*«c#«l*»c3e*|-r6«P«-5 


:Tt^ 5 «ft^M«aicitu, tse icias-ft 

Aurm^-r^. 

10 DEFSNG T 
20 TSE=3. 141592654# 

30 PRINT ,, TSE=" ;TSE 
40 END 


n ff m 

TSE= 3.14159 


#$t : defint, defdbl, defstr 
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APL 

— 

TRSi 

— 

CPM 


M223 

- 

MZK 

- 

CBM 

- 

PC8 

• ^-^# 80 . 

TRSn 

• £ fflt. 

PC3 

DEFREAL T— * 

•tttmt. tzt * U tf-f- (T — 

>), 


IF82 

• 2^*^: l^lt. 

3 


Cl 80 

- 

M243 

- 

MZB 

— 

BUB 


FM8 

• ^blsJb. 

PSP 

- 

PC88 

• ^Tfctrat. 

N52 


PC6 

— 


MLT \s]t. 


• 5/X7JU 


hc -tttmt. 


FP1 1 • *?C£ ffl b. £ fc, 

DEFSNG @ (i, Xrt&t 

Z&WzM'fZftifc. Zfilz Ulil 

u, zn, 

DEFFIN 


SMC 

DEF FLT A-C, S-T 


MZ35 

■ PC 3 tint. tzfiL, 

12 ffij-e #*b. 

XI Hu 

■ ^X tit. fcttL, # 

®4(±#«)*SS|CJ:S. 

MB1 6 

• *:fc£rab. 

IBM55 

• ^*trab. 

PCI 00 

• *-jc£mt. 

MSX 

• *-%£ ra b. 
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DEFDBL 


Jfcit : DEFDBL B-C , S-T 


®" &1ST *£«& . MStJigu^T 

: i ame** -mb *■&*»£, (g«ge*t-tt5Ei-a. 
taco— Sc.^(r>^. 

3 17tffiT'A73, 16ffi£‘C£b*l'Hrte ( 17tfT S (i E9J&TL A£ ft* ). 

4 «#[«z# 


ALT &}]-?&. 

10 DEFDBL D 
20 QSE=3. 141592654# 
30 PRINT" DSE=" ; DSE 
40 END 


m ft m 


DSE= 3.141592654 


#fiB : DEFINT, DEFSNG, DEFSTR 


5*:7W> • 5T7VU 


APL 

- 

DEFDBL @ (i, tj 

TRSi 


SMC — 

CPM 

• ttctfflt. 

MZ35 — 

M223 — 

XI Hu -^^C^IWJL. fcf L , ^ 

fft3(±fSFl»«gat3j:*. 

MZK 

- 

CBM 

- 

MB16 -*JCt\ WJL. 

PC 8 


IBM55 -^*tIplL. 

TRSii 


PC100 ^ Cw 14 

PC3 — 

MSX -ttkl WJL. 

IF 82 

• ttk fflt. 





Cl 80 

— 


M243 

- 


MZB 

- 


BUB 



FM 8 

• mt. 


PSP 

- 


PC 88 

•ttt mt. 


N52 

• tttm t. 


PC 6 

- 


MLT 

• ttkfflt. 


HC 

• * 2 :* not. 


FP1 1 

• tmt. ttz. 



DEFSTR 


l DEFSTR S-T , W-Z 

: Seiko 5^*1“ *. 

if#®: i 

l Sc.^P<n&. 

2 SEIk^oMS:W*^ 1 3 & < #i--ot& 5 gJ: ») * 7 fc 1 “&. 

3 SNf 1$-5 . 


y ° p y ^ a#iJ : sr^sift^scatsu si<i:s2ic^-n 

fn^?5iJ^tAUT, S3 1C 

ftAU, 


10 

DEFSTR S 

20 

Sl=" ABCDEFG 

30 

S2=" HI JKLMN 

40 

S3=S 1 +S2 

50 

PRINT S3 

60 

END 

n 

ft m 


ABCDEFGH I JKLMN 


#fjg : DEFINT, DEFSNG, DEFDBL 
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APL 

- 

TRSi 

• ttt fflt. 

CPM 


M223 

- 

MZK 

- 

CBM 

- 

PC8 

• **#181. 

TRSn 


PC3 -tttmt. tzti L, ii 

V'*C i>ftL h. 

IF82 


\y 


Cl 80 

- 

M243 

- 

MZB 

— 

BUB 


FM8 

• tttWlt. 

PSP 

- 

PC88 

• *-X£ fflt. 

N52 


PC6 

- 

MLT 

• £ 1^1 b . 

HC 

• t. 


-r'Jzp^'y • 

FP1 1 -***131:. £tz, 

DEFSTR @ li, ^-F*-7 : T'4&i 


sseiku 

& ta *E. 

SMC 

**£[s]b. 

MZ35 • PC3 £|I]l:. &i>\ 

DEFSTR / ft h £ 

tk£&*. 

XI Hu 

mt. 

MB1 6 

ttt rat. 

IBM55 • 

afcfcfclUt. 

PCI 00 • 

WfcWI:. 

MSX 
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defchrs 





APL -t&m&L. 
£ ^nf. 


TRS, 

— 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

— 

PC 8 

- 

TRSn 

- 

PC3 

- 

IF 82 

224- 

• 3l£fc^!£g£l(il28~159<b 

225. 

L"<Jl* 3 

- 

C180 

— 

M243 

- 

MZB 

- 

BUB 


FM 8 

— 

PSP 

- 

PC 88 

— 

N52 

- 

PC 6 

- 

MLT 

- 


HC 


FP1 1 . ^:Sc#B 8 . 


SMC DEFFONT 224, E$ 

• — Kfi0£*^255£ 

T'^5e*r^>. 


MZ35 — 


XI Hu DEFCHR$ (10) =A$ + 

B $ +C$ 

• 256^^-C'^T'# 

• *7 * > Hi RGB c7) 3 

<ru — 

• -3-— "’f <h i' X f A^O^r ^ 7 z 7 

£v\ 

CGPAT $ (&H40) 

• * ^-7 7 ? • 3— Kic^j£?L/c32 

h C7)3t^ij{c J: — >£ 

& . 

CGEN 0 

• **77 mvwmtzftn . 

0 : ROM, l : -3-— *f5e®L 


MB1 6 — 


IBM55 — 


PC100 — 


MSX — 


— X • T K U-XCOIS^: DEF SEG 


: DEF^SEG = &HAOOO 

ffitMfc I -t 7V > h <7v<— x • r k u xtfoix^. 

ClX>li££4 tf y h£^-7 h 


Z7°n *f=7UW\ : a :-^ • -? poke 

I51U7 7 

100 DEF SE6=&H40 

110 FOR 1=0 TO 15 

120 POKE &H100+ I . I 

130 NEXT I 

140 DEF SE6=&H50 

150 FOR J=0 TO 15 

160 PRINT HEX$< PEEK< J) ) : " " : 

170 NEXT J 
180 END 

n & m 

0 1 234 5 6789ABCDEF 


#0S ; BLOAD, BSAVE, CLEAR 


77 


Ty^y • tz 


APL — 

SMC — 

TRSi — 

MZ35 — 

CPM — 

XI Hu — 

M223 — 

MB1 6 — 

MZK — 

IBM55 

CBM — 

PC 100 • 

PC8 — 

MSX — 


TRSu — 


PC3 — 


IF 82 — 




C180 — 


M243 — 


MZB — 


BUB — 


FM8 — 


PSP — 


PC88 — 
N52 — 


PC6 — 

MLT • ^SCt In] b. 


HC 


FP1 1 — 
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ie5IJ<7>5£^ DIM 

: DIM B ( 100 ) , F$ ( 150 ) 

i 1 


mm 

•O). 

2 DIM ^XGDW&^mi, gHifiSii^iJfi 0 , 

st^-nm umz i&5e zt u> . 

3 &i\k£tzli&ffijKX?t7 . 

4 J: )) ijjzg. £ £(£, 

x-v—h^SL-th. 


-f □ +? -7 a#ij : nm&m^T, 

10 DIM B( 2 , 2) 

20 FOR 1=0 TO 2: FOR J=0 TO 2 
30 B ( I ,J>=I*J 
40 NEXT J : NEXT I 
50 PRINT " * " ; 

60 FOR 1=0 TO 2 : PRINT I ; :NEXT I 
70 PRINT 

80 FOR 1=0 TO 2 : PRINT I; 

90 FOR J=0 TO 2: PRINT B(I,J)j:NEXT J 
100 PRINT :NEXT I 
1 1 0 END 

m ?t m 

* 0 1 2 
0 0 0 0 
10 12 
2 0 2 4 


#%j : OPTION BASE, ERASE, VTCLEAR, g^ij 


APL • *St£\s]t. fztz : b, >£ 
i tit 1 ~88co$M. 

• St^\&^<x>St^\&<x>M±i&lZ 

255. 


TRSi -tttmt. 


CPM -*St£\G]t. tzfSL, 

OPTION BASE St 
X\ 0£‘lfcESbe'C#&. 


M223 • *St£\s]t. fztS L, >X 

7c(i 2 #C7ci X. 

• 1 'kit<x> £ £ , 

0 —65000 <7>$5IS1. 

DIM F $ (20) U Jz ') , St 
(^ijT-(i20^C^-) £ 1-255 

^>mmx^x^ h. 

• Stolen 2 XtcRWU*, DIM F $ 
(150, 20) Xft£M±St'4 : n&* 
tu 5 eT" i> . 


MZK • *St£ffit. fztz: L, m 
255. 


CBM -*St£ |WJb. tzt* L, * 
7C(i 1 —255 ct>$ a®. 
ii tilt 32767. 


PC 8 

• *St0M. 

TRSu 

• *St£lfi]t. 

PC3 

• *St£mt. fzfz'l. St 

^m^st^mu, mifiiex 

hh-h< 

, DIM F$ (150) *20 tz 

cfc »), 

st^fmz&TEXzz. 

IF 82 

• CPM £15] b. 

1"<JU3 



Cl 80 -CPM^fHjl:. tzt* L, 
->C7C(i 2 ^7c £ X. 


li 65535. 

St^WQglCOSt^WtklZ, iM^18 
Xhht>\ DIM F $ (150) *20 
CJ: ')SC¥9\\&$: 1 -508 <n®.m 
XftifcXZ &. 


M243 

M223 £Mt. 

MZB 

MZK £ It] b . 

BUB 

CPM £|5]b. 

FM 8 

*st£ mt. 

PSP 

tzti L, -k 

7CU 1 - 

15<7) iKBI. 

• St'?-*m%i:<7)St'4 : mi(i, ii'ft-32 

xh 6 t> 

f , DIM F$ * 20 (100) 

CJ:'), 

:£-T?iJir<£ 1 ~255 <X>m. 

mxfttfcxzh. 

PC 88 

CPM £V»\t. 

N52 

'<kit It 3 'kvt £ X £ ~f h . 

0 -32767. 

PC 6 

ikitlt 3 kitS. X. 

MLT 

CPM £ fnj b . 

HC 

*St £ [sj b . 

FP1 1 

CPM £ftjb. 

SMC 

CPM £\s]t. 

MZ35 

PC3 £mt. tzt* L, W 

fftl (±&V\ 

XI Hu 

*St£ Is] b. fc*5L, * 

TCfi 255 'X.7Z&X. 

MB16 

CPM blsJb. 

IBM55 * 

CPM tiwjb. 


DIM 


PC100 • CPM t Ip] b. 

MSX 


- 80 


le^lJTPUfi (DtWfc OPTION BASE 


: OPTION BASE 1 

t T 

■iz-m &m 

MMi : aWJ^TKMfiS- 0 4 fzlt 1 so i' A, 

W$k : 1 fcWz 0 t, OPTION 

tiOKfcO, l <>:TPIUi 1 t%Z>. 

2 OPTION -Xlt — 'On-Tu Afp, — 

). 

3 OPTION BfS*(= OlzISfcZtiZ. 

4 £££-£-& t #, OPTION BASE 1 £ 

!£-? \\X*hh. 


7 ° n 9 -7 A#iJ : gfi^ij b (DTRgfii^o ic- 9 4 - &. 

10 OPTION BASE 0 
20 DIM B(4) 

30 FOR 1=0 TO 4 
40 B( I )=1 
50 PRINT I, B(I) 

60 NEXT I 
70 END 


m ft m 


0 1 

1 1 

2 1 

3 1 

4 1 


#88 .* DIM, 


7 r^s/3> • / k— x 


APL 

- 

FP1 1 


TRS 1 

- 

SMC 


CPM 


MZ35 

- 

M223 

- 

XI Hu 

• \*]t. 

MZK 

— 

MB1 6 


CBM 

- 

IBM55 


PC 8 

- 

PC100 


TRSn 

- 

MSX 

- 

PC3 

- 



IF 82 




ls*<J 1*3 

- 



C180 • *:£#!!«. 

• TP£ffi& J: (/'JiRKfitfi LDIM, 
UDIM mVk'Cfrfrh. 



M243 

- 



MZB 

- 



BUB 

• if-xt | 5 jb. 



FM 8 

- 



PSP 

- 



PC 88 




N52 

- 



PC 6 

- 



MLT 

• C180 t \sit. 



HC 





X ') • ? ij T CLEAR 


: CLEAR 500, 50000 

i ii i 


itarsT 

: -f^xcnm 0 M, ;£«£&£ -F/L • x h >) > TTc 'J -fe *y h 

-tz. 

^B&-f h £ 300 (c ftx^= £ tl & . 

2 m 2 cr>zmx% basic ox>±p&<7)7 k^x 1 ’^ 

lOitr Ku X59903(16ilT E9FF) 
tx^mm^-^r • 77';u-7>£fe*rti-& t ziz&i . ^ 
filter kp x 59903 izm^ztiz. 

3 IfS 2 X>5I3&£*^1‘& £, ^ 

^|p : "7K^ ar^-ig.<niujatgij-r &$-¥•. Sifej: 

:/□ y ^ A^ij : 

10 DIM B< 7) 

20 A=1 23 

30 FOR 1 = 0 TO 7 : B< I >=I :NEXT I 
40 C#=3 .141 59265358979# 

50 E*= "BASIC M 

60 PR I NT " A= " ; A , " C#= " ; C# 

70 PRINT " B < I > : " ; 

80 FOR 1=0 TO 7: PRINT B< I > ; sNEXT I 
90 PR I NT : LPR I NT » E*= " ; E* 

100 CLEAR 

110 PRINT " *** clear ***" 

120 PRINT "A=" ;A, "C#=" ; C# 

1 30 PRINT " B < I > : " ; 

140 FOR 1=0 TO 7: PRINT B(I);:NEXT I 
150 PR I NT: PR I NT "E$=";E$ 

n & m 

A= 123 C#= 3.14159265358979 

B< I > : 0 1 2 3 4 5 6 7 

E*= BASIC 

*** clear *** 

A= 0 C#= 0 

B< I > : 0 0 0 0 0 0 0 0 

E*= 


#flg : DEFUSR, VCLEAR 
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O'J T> 


APL CLEAR L> t t>* LOMEM 
• CLEAR tzfZ fL, 

££LOMEM;£ 
T BASIC X'1%m-fZ> X -t 0 X>_h 
RR^-J&Sg-r*. 


TRSi CLEAR500 

5I3&££b&1-£ £, 

50'<T h 


CPM CLEAR, 49152, 500 
• BASIC 

£X"6 «jX>_tPR£, 

BASIC cr>t2frcr>K 7 -v 71TO£ 
. fcfcTL. ZtLk&ftfe 
-fh ££lt CLEAR<7)?£{c r? >-v> 

( , ) &‘&m. mt &mtmz 
mkztih. 


M223 • CLEAR 

* [WJpp^li VCLEAR. fzt? L, 51 

mu>fz%^. 

• VTCLEAR USl 

UiT. 


MZK CLEAR LJ J: t/ LIMIT 
• APL i: I?] L . fcfcfL, LIMITS 
ttz 


LIMIT MAX T BASIC 

CBM 

• APL t mt. 

PC 8 


TRSn 

• TRS 1 ^ Id] L. 

PC3 

— 


IF 82 *CPM£[H]t. fc£TL, 

<X>±mt 65535 T, X 7 y 
7 £ ^B&i- & £ 256 1C 

I3:5e £ n & . 


L"<ZL3 •5l^c?r^ > Bg-'^"^)i, 
Mi££ 300 '<T h , Zt'J <7)±P& 
It 32767(&H7FFF) (C $ tl 
h. 


C180 

- 

M243 

• M223 £ffl t. 

MZB 

• MZK i |SJ t. 

BUB 

•CPM tisil:. tzt* L, 

CLEAR X)&lz 0 , ){±v>^ 

&V'. 

FM 8 

• T KU X<7)±PR(i28671. 

PSP 

• APL 

PC 88 

CLEAR 300, &HF000, 

1000 

• CPM 

£mt. tzr* L, ^1X)5I 




N52 

CLEAR FILE, 5, 500 


X'3r — ~X> LTffflt^>7 7 T zu 

®*7jx>5l Wf7r T ZK7)1H«cT, 

3T*4. *2<^3l*fc«:*KHftl 
InJt (*(C^B&oT). 


PC 6 

- **iis)l;. 

MLT 

• CPM £W\t. 

HC 

CLEAR 200, 256 


• £ 200 icg& 

• SfS 2 <7)5l&(i RAM 7 r T zuco* 

$ $«r»5E-rs. 

MEMSET &H0D00 


82 


j /^\) . ? ij 7 CLEAR 


•iMI§7”D/7A(i, BASIC -7° t 200 h 

O /7A(7)7^x b • jl i; T<T)m 

\ZtefrtLh<F>X\ BASIC T'1£tfJ 

-t <7)Tm£8Si5E-t&. 


fpi i -si mtn 
ztih . mw , on p#c 
It, Zt 1^*1 1023, 65534 

(&HFFFE) 


SMC CLEAR 

• 31 $ 

MCLEAR Ml, M2 

• basic . x -t •; £ 

MIT', >f • y -t U £ M2 T'#Tt£ 
1 ~£. 

• >J -fe y 

h 


MZ35 ERASE * &A000 


XI Hu CLEAR 

• wbl? ') r (clr 

CLEAR &HC000 
LIMIT &HC000 

• BASIC Jil 

■6 . 

X?y?CO 

•; r $n«6. 


MB1 6 -CPM£[H]b. 

X* y 7fttilL<7>'&v&mz.lt 512 '< 
jvttzit , 

fc&T) 1/8 C 7 )V.-f WJ 1 . 


IBM55 -CPM^fllb. tzt' L, 

X * *y 9 £ £n&1 - £ 

512£A:fi, 

CO 1/8 co«):'*bi^/B£ v^J 9 
f & fcZtlZ . 


PC100 • PC88 <h fa] b . 


MSX •Iz-Xtfflt. tzt* L, 


^7'JP 


ERASE 


: ERASE B, F$ 


: i flH£LfcE*j**fc* «*-*■*. 

2 #tr DIM 

X'cf- & . 

3 #JI$Lfc£7lJ&%lctt ») ^-C htlX^'tz X * ') llfrco 

gift Iclfcffi-C# *. 

4 Hi: t\ h <n\z fgifij x 


y P A0IJ I BE^J^H3£liT«. 


1 0 

DIM 

B< 7 > 



20 

FOR 

1=0 TO 

7 : B< I >=I : PRINT 

B< I > ; .-NEXT 

30 

PRINT 



40 

ERASE B 



50 

D I M 

B< 1 2 > 



60 

FOR 

1=5 TO 

1 2 : B< I >=I :NEXT 

I 

70 

FOR 

1 = 0 TO 

1 2 : PRINT B< I > ; : 

:NEXT I 

80 

END 




m 

ft 

W 




0 1 
0 0 


2 3 4 5 6 7 

0 0 056789 


10 


1 1 


12 


#JjS : DIM, VTCLEAR 
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APL 

- 


TRS i 

— 


CPM 

• *Xt 1SJ t. 


M223 KILL B, F $ 

-mm^xt mt. %c%l 

• VTCLEAR X\ -r V r =7 Ui)' to 
z.t 

MZK 

- 


CBM 

- 


PC 8 



TRS ii 



PC3 

- 


IF 82 



U' '^■Jl' 3 

- 


Cl 80 

- 


M243 

• M223 tfflt. 


MZB 

- 


BUB 



FM 8 

— 


PSP 

- 


PC 88 

• *Xt |W] t. 


N52 




PC6 — 


-fU-X 


MLT 


HC 

■ **tn?ll:. 

FP1 1 


SMC 

~ 

MZ35 

ERASE B 

XI Hu — 

MB16 

• **£|S|t. 

IBM55 


PC100 

■ **£|i)t. 

MSX 



MSUtttA DEFFN 


: DEP FNA ( A, B ) =SIN ( A ) * B 

B9»<7)«»5 *#«& • ttOigL^ 

I I 

'*=7 / — ? ' 'J X h 

WSk : fft < a— 

;b ft & . 

2 J:^. 

3 B5*fc£li, FNft*3t< FN 

Wl^2 Jc^<7>&j)<-m\Uzft%} m 5\mcnt£lt, FN £5gLft 

flll^rg -7 . 


y°U *f -7 U ® lj : r^FNA (A, B)=A*B + C^£|gUm^. 

10 DEFFNA (A.- B) =A*B+C 
20 A=3=B=4sC=5 
30 D=FNA(A,B) 

40 E=FNA (A? 6) 

50 LPRINT "D= " .- D 
60 LPRINT "E=":.E 
70 END 


H *r #J 
D= 

17 

E= 

23 


#88 : FNEND 


APL DEF FN A( I ) = SIN( I ) 


• '<7 / — 9\t— o. 


TRSi 

• rat. 

CPM 

• ** t rat. 

M223 • FN END:££ffl^ X m 

gkffcnXxj /7A?r — z><n\ UJ&£ 
LXfemxZZ. 

MZK 

• APL if^b. 

CBM 

• MZK ^|WJt. 

PC8 


TRS,i 

• fflt. 

PC3 

• *-xtmt. 

IF82 


l*"<Jls 3 

• IhJ t . 

C180 

(7) V ' 

’A&££IhH* 
'Itf-Wlf S AS. 

M243 

• M223 tfflt. 

MZB 

• MZK <b|s]L. 

BUB 


FM8 


PSP • FN i;t< A~Z 

co 1 %<n—^ct-. 

PC88 

• ^M^7;T : ^cii40T : ^T 


N52 

• *-X t III t . 


PC6 

DEF A =SIN (I) 

• ^'°7 ^ 

-7(i 5. 

MLT 

• C180 t fflt. 

HC 


FP1 1 


SMC 

• smmomtxx. 

£li 255 SC^-iX-X-bh. 

■ W*W5g£{,*T1t6. 

COND, 

PROG 

, SETQ, EVALHC&£ffl 

V'&CL 

tlz £>), m%cf. rcoxar 

7A^ 

tt. 

— ocommz-tzztfr^i 

MZ35 

• tz ti L , & 

mi (iT'TT. ^7/-^- >J x h 
$:3ft*. 

• if#m 3 -cti 8 TW$J. 

XI Hu 

• ci8o tmt. 

MB1 6 

• PC88 ilH]L. 

IBM55 

• PC88 twit. 

PC100 

• PC88 tmt. 

MSX 



- 85 - 


3&Bc51#i»LM COMMON 




Mitt : COMMON A. B 

I I 1 I 

SIh6 I CHAIN t £tz, 

4$^ : 1 'J&T CHAIN 

< tt chain * ogrc(i*jewe*<6. 

4 g£7l]gg#j± A ( ) co J: ? fz " ( ) ” £f*tt-C«3L1-*. 

5 CHAIN ALL *7“^ a 

> 4- ffl ^ h li o &WM X-h h . 


-f u II * ^©^D^Atti-lUfc B ( 1 10 ), Al, 

* AZ (D &CDC7n^'^AlC3l^i&U, 

^-t±^>. 

10 'Program for COMMON 
20 COMMON B( ) , Al , A2 
30 DIM B( 15) :A1=0:A2=0 
35 LPRINT ‘B=‘; 

40 FOR 1=1 TO 10 
50 B( I )=I*I 
60 A1=A1+B( I ) 

70 A2=A2+A1*B( I ) 

80 LPRINT B( I ) ; :NEXT I 
90 LPRINT ' Al = * ; Al , * A2= " ; A2 
100 CHAIN 'procom' 

110 END 


10 'test program for common 

20 LPRINT ‘after chain ': LPRINT *B=‘; 

30 FOR 1=1 TO 10 

40 LPRINT B( I ) ; :NEXT I 

50 LPRINT ‘Al=‘ ;A1, *A2=‘ ;A2 

60 END 


m ft 


B= 1 4 9 16 25 36 49 64 81 100 Al= 385 A2= 86779 

after chain 

B= 1 4 9 16 25 36 49 64 81 100 Al= 385 A2= 86779 


I CHAIN 


APL 

— 

TRS, 

- 

CPM 

— 

M223 — 

MZK 

- 

CBM 

- 

PC 8 

- 

TRS„ 

- 

PC3 

— 

IF 82 


L"<JU 3 

- 

C180 

- 

M243 

— 

MZB 

- 

BUB 


FM 8 

- 

PSP 


PC 88 


N52 

— 

PC 6 

— 

MLT 


HC 

— 

FP1 1 

- 


SMC — 


MZ35 — 


XI Hu 


MB16 


IBM55 tzt' U 

m 2 (±^^. 


PC100 -ttttsit. 


MSX 
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WtmSmt&T K DEFUSR 


l DEFUSRO=&HEOOO 

l_l 

^b&«T 

ffltMH : ti&Mm *-— F • *>co|3§*&T 

: i ^ o ~- 9 &mx* 

j_—*f . ->f-r;u— ^->£7)f^^r Ki/X$:^t-?>. b, 

o biases ns. 

2 MteT KUXIJ* lOii, 16it<7>3R^i: 

3 -2-— -»f • ;u— f- ><?)$] £6 L — 3tf07°o 

/7Al:v'< o& DEFUSR :££:fctt&. 

4 «M*S§A,— • ■f->*0#-^£*&5£LT, BASIC 7 B o/7A4't*f 
7 £ 


y □ y - 7 Atfy (*) mimbr-*-*. 

10 DEF USR 1 =&HEGG 0 
20 FOR I=&HEG0G TO &HE00C 
30 READ A$ 

40 POKE I , UAL< "&H" +A$> 

^8 m 1 rI< 7> 

70 PRINT 
80 X=USR1 < 1 1 ) 

90 END 

100 DATA eb , 1 a , 47 , 3e , 2a ,cd, 57 , 
02,05,c2,05,e0 , c 9 


n & m 

m ****** 

*********** 


mm : USR 


• H— +f 


APL — 


TRSi 


CPM 

• ttt rat. 

M223 

- 

MZK • mmZl. USRSCX'fe& 

3l&<7)§l#i£UiT££:v>. 

CBM 

- 

PC 8 


TRSn •TKUXli -32768 *‘ 
32768 i T (10it) £ b &. 

pc3 m^Zl. tzfz fl f USR* 

-C9l«k, 3R 

3f€r*&s£-c$*. 

IF 82 

• ^i:|Wl b. 

L"<JU 3 


Cl 80 

— 

M243 

- 

MZB 

• MZK ^ IhJ b. 

BUB 

•*Sct fflt. 

FM 8 

• *££pJ]b. 

PSP 

- 

PC 88 

• *sct mt. 

N52 

- 


PC 6 — 


MLT 

DEF USR C*2 3 = t7 

-fe "/ F 


HC 

• *Sctmt. 

FP1 1 

• if Set is] b. 

SMC 

DEF ANNO = &HEOOO 


MZ35 

usr mm. 

XI Hu 

• **£1*1 1. 

MB1 6 

• MIS BfJttn&Hkli. 

“ DEF 

SEG” OfEmZti 

tz -fe 7V > h fit*' £> <7);f 7 -fe y h 
• “DEF” t “USR” <7)P*BteX^ 

IBM55 

•TFwxli 0 ^ 65535 

• *<nm± mbi6 t mt. 

PC 100 

• *:fc£iwib. 

MSX 
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HDl^m PARACT, PAREND, URGENCY 


IVyj^Oh, /^X>K, P-V: 


: ® PARACT ^ APAR ^ ID 


50 URGENCY 10 WORK Z 




T ^ T 

«5feWtt 


T_t 






OVEREA 3 

t 

i i 

PAREND 


m L, PAREND *(i, ^ 60 **- 


PRACT *ii, 

frnZTF-t. £tz URGENCY *(±, 

-ra. 

10 — 127 <7)i£@l<7>$£3!&, 1 ~63^$£|i8^S£&T'^^ 

L, £ 5 <L £.*&. £ 3f— '^4 IBWfcti 

*tzsg&£i-&. 

2 fi^ilnlb l><n£1femLXl±% t? 

fcv*. , n^imfifca* 

[5jb££(i, 

3 t 600l§t^5:$tu>. 

4 3fc?iJM3H&0£(i, BASIC ^^•■/o/7A$:f 

< w t 

5 #M®M<F>tzth<r)$i^ t LtJfcWj: •? 

FETCH, FREEBUF, TRANSFER, EIF, BUFFER, 
INDIRECT, GETBUF, OVAREA, SIGNAL, WAIT, 
START, PARSTOP, CANCEL. 


>K— K^*d0A^t- 

CRT 

100 PARACT DISP1 ID 10 URGENCY 1 

110 START PR INI 

120 BUFFER 1:40*2 

130 INDIRECT A,A1 

140 GETBUF A FROM 1 

150 GETBUF A1 FROM 1 

160 INPUT A 

170 INPUT A1 

180 A2=A*A1 

190 PRINT "A^A;" A1=*';A1 

200 PRINT "A*A1= ,, ;A2 

210 FREEBUF A 

220 FREEBUF A1 

230 GOTO 140 

240 PAREND 

250 PARACT PR INI ID 30 URGENCY 2 
260 BUFFER 2:40*2 
270 INDIRECT B$,B1$ 

280 OPEN #1 : "AFILE.DT/0" 

290 OPEN #3:$LP 
300 GETBUF B$ FROM 2 
310 GETBUF Bl$ FROM 2 
320 AT EOF #1:390 
330 INPUT #1 :B$ 

340 B1$=STR$ ( DAL < B$ ( 1 : 2 ) ) +VAL ( B$ ( 7 : 8 ) ) ) 

350 OUTPUT #3 USING "Z9;X;Z9;X;ZZ9 H :VAL(B$<1:2>> » 
"+" ,0AL(B$(7:8) ) , "= H ,0AL(B1$) 

360 FREEBUF B$ 


370 FREEBUF Bl$ 

m 'ir m 


380 GOTO 300 
390 CLOSE #1 

CRT th* 


400 CLOSE #3 

? 5 

4+ 9= 13 

410 PAREND 

? .6 

25+13= 38 

420 END 

A= 5 Al= .6 

24+12= 36 


A*A1= 3 

6+29= 35 


? 254 

22+26= 48 


? .32 

5+45= 50 


A= 254 Al= .32 

27+ 8= 35 


A*A1= 81.28 

6+19= 25 


? 626 

6+13= 19 


? .45 

30+ 8= 38 


A= 626 Al= .45 

28+49= 77 


A*A1= 281.7 

43+17= 60 
27+30= 57 

* 350 frttlSK* 


40+17= 57 
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PARACT, PAREND, URGENCY 


APL 

— 

TRSi 

- 

CPM 

- 

M223 

— 

MZK 

— 

CBM 

- 

PC 8 

— 

TRSn 

- 

PC3 

- 

IF 82 

- 

3 

- 

C 180 


M243 

- 

MZB 

- 

BUB 

- 

FM 8 

— 

PSP 

- 

PC 88 

- 

N52 

- ’ 

PC 6 

- 

MLT 

- 

HC 

- 

FP1 1 

— 


SMC 


MZ35 — 


XI Hu 


MB16 — 


IBM55 


PCI 00 — 


MSX — 


!Vz>-pO K J> 


mVM L FOR 


I FOR 1 = 1 TO 20 STEP 3 

tomm *"fr»T 

1 tgfr<Vl$.liM%TCi> cfc V'. SIMt 1 r ) :*:£ < 

h&''\ 

2 STEP tLfzf&'a'li, igfrti 1 

3 :&{S;10J±. ;u— h& <r> 

4 -***■«*. 

5 & NEXT 

6 tmfe, ^Miisxx/mw^xrhh. 

m |E • »>^XT-«f>y 7* a /7^'K', -M — -T^ + JC/W— -/■b'h'ifZ •), ■'t7'^-f > 

l*j 'C'-*#-7';w— -f- > %1%'A,TS *) £ f* o tz, 7 , D/7ii ( , £•' 7 2> <1 


■ 7 0 n ^ A0IJ : I £- 1 £'»o 3 -3"T>in3_Ttfi:fr U, 20£-$£^.£:^£*-7. 

10 FOR 1=1 TO 20 STEP 3 
20 LPRINT I 
30 NEXT I 
40 END 


m n m 

l 

4 

7 

10 

13 

16 

19 


mm : NEXT, UNTIL, WHILE 


89 - 


APL 

^Set iwj b. 

TRSi 


CPM • tzt* L, ^ 

f^3(±, 

FOR- NEXT )V— 
NEXT# 

CO'skW^tlZ -/ O ^-7 A <7)r{j1] 

6 . 

M223 

cpm tmt. 

MZK 

■ tttmt. 

CBM 

■ tttrnt. 

PC 8 

• ###{&. 

TRSn 

• *-xt mt. 

PC3 


IF 82 

■ CPM t mt. 


■ CPM £|wjb. 

Cl 80 • FOR #£ NEXT #(i 1 

** 1 C7)^tS. 

M243 

• CPM tfflt. 

MZB 

• *#£l*Jb. 

BUB 

• cpm tmt. 

FM 8 

• *#£IiiJb. 

PSP 


PC 88 

• CPM ^ |WI b. 

N52 

• tttfflt. 

PC 6 

• *#£I«]b. 


yx— 


MLT -l#^3(i, & 

£')±£ < ^oSTEP<7)ffi^iE<7) 
<h^, *>£^(±, 

*) /J>£ < *‘OSTEPtf0fi&7!> f ^^^ 
;u-7^^ai*C, NEXT 
^:<7);Xc7)-7°o /7 Ate 6. 


HC 


FP1 1 

• CPM tfc lb. 

SMC 

• CPM t fflt. 

MZ35 

• *sct mt. 

XI Hu 

• CPM t\s\t. 

MB1 6 

• cpm t mt. 

IBM55 

• CPM t\5]t. 

PC100 

• CPM £|S|b. 

MSX 

• t [n] b . 
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f#UfiL<Z>aS5k NEXT 


: NEXT I , J 

l_l I I 

^m&nr *£■&•*! 9 igb«r 


FOR £ WJE&-T h W&.& 

mm : FOR b^V'T, 

4$« : i grMJis— -7°^''RI b tfkPftX'jfcto h i^T^u— 7°(c^J-L 

T, — 3<7) NEXT 

& 0, \Hm<r>n — ~r<r>?mL*1£frh^< 

2 NEXT ***-#&v> FOR *£«*&-*-*%£*: fi, &&&«* 
T*£ &. 


yp^7A^J :i$-20^-f^UT/li^U l lcfcUd'^-<75:-5^ 
•d^-T. 

10 FOR 1=20 TO 1 STEP -3 
20 LPRINT I 
30 NEXT I 
40 END 

n ft m 

20 

17 

14 

11 

8 


#83 : FOR 


=tc>xh 


APL 

• ## i |BJ t . 

TRSi 


CPM 

• *sct mt. 

M223 NEXT I 

MZK NEXT I, J 

• ni*«*T»T. ,J(± £»&•*& >)& 
L»T. 

CBM 

• **blsJb. 

PC 8 


TRSn 

• «£[s jb. 

PC3 

• |S| b. 

IF 82 


^^1/3 

• b |nj b . 

C180 

• M223 tWlt. 

M243 

• M223 t ffl b. 

MZB 

• MZK bflJb. 

BUB 

• M223 £ mt. 

FM 8 

■*sctmi. 

PSP 

• M223 £ mt. 

PC 88 

• mc£mt. 

N52 


PC 6 


MLT 

• *-%. b ig b . 


HC 

• «:£|WJb. 

FP1 1 


SMC 

■ ^sctnt. 

MZ35 

• **:£mt. 

XI Hu 

• *Sc.£\*\t. 

MB16 

• *1c£mt. 

IBM55 

• *-££fflt. 

PC 100 

• «C*Rlb. 

MSX 

• ^~X£ IhJ b. 


C IF 


JKifc : IF A Z>=Z THEN GOTO 70 

- I I I 1 

'iW^T 


Ulr* 

ELSE GOTO 170 

^B&hT 

I - — I 

ill B & "I " 

m-rSc. 

* 7°d Xy T7. 

4#^: 1 THEN, ELSE 

2 ELSE £®B&Lfc^t-li. THEN GOTO T'trS 

3 ?>xf^ ib*4^ELSE 

gpL THEN (±» ZtLZ'tKn ELSE 

i£<, THEN (z*il£*r&. 

4 THEN £:ttfUdf1£*£^fT 

-£*ftz, -To ^-7 

5 -ra *-7 A $IKSP<7) »l£, < orfHz^il&£-tf&iir£% 

<T)\W *^- /<= 7 "/ %!)*&> & t £ tzfgi^ij Xrdh h . 


"7° P +f =7 A^lj : X, Y (Ot$-A ti L, ^<D^Z' %>. 


10 INPUT ”X= " ;X 
20 INPUT 11 Y= " ;Y 

30 IF XOY THEN IF X>Y THEN PRINT X;">" ;Y 
ELSE PRINT X; "<" ;Y 

40 IF X=Y THEN PRINT X; n =";Y ^ 

50 IF <XO0> OR (XOY) THEN 10 
60 PRINT "END" 


*t m 

X= ? 15.32 

u= o 7 
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-f7 


APL • ^LIS]L. 

ELSEJa&tiffix.fc^. 


TRSi • tttWlt. tzt* L, 


CPM tit* L, 

THEN GOTO SMOfffi L 

/z^-Ci, ELSE£l$fflT'£&. 

M223 

THEN, 

tzti L, 

ELSEI±£»&T'£ irt'. 

MZK 

APL £ [s] b. 

CBM 

APL tW\t. 

PC 8 


TRSn 

TRS 1 tWlt. 

PC3 -^-JctWlt. Zhiz, br 

#-^coft;b *) 1:7^^, 

l±W ')iftX h>tiZ. 

IF 82 

CPM tWlt. 

U"<./U3 

** twit. 

Cl 80 • END IF 

THENO& 0*g$cbr£ 1 V'a v 
? ~ £ frXbh. 

• CttdH^ELT, CASE £ 
SELECT, END SELECT t t 
Ltzfflv^-g, ’ tlz£ »), 

«W"T. 

M243 

■ M223 tWlt. 

MZB 

■ APL tWlt. 

BUB 

- *sc twit. 


FM 8 

• CPM £ngb. 

PSP 

• THEN eott:b») C, 

GOSUB *, GOTO C. £ 

* f T£ <6. 

PC 88 

• CPM tWlt. § ^>{3, 


T'£ & 


N52 

• CPM L'fWJb. 

PC 6 

• APL ill]b. 

MLT 

• **£[H]b. 

HC 

• «C£|W]b. 

FP1 1 

• CPM tWlt. £tz, ft 

ii£3c<i, ffttfiO(2*‘lZ7 , D/7 

A • -x 


SMC 

• THEN coIXb ») iz, 

GOTO *, GOSUB*, LET* 

(LET (iitB&'C^ 4*vO 

MZ35 

• PC3 tWlt. 

XI Hu 

• PC88 tWlt. 

MB1 6 

• CPM i |WJ b. 


IBM55 -CPMtWlt. tit' L, 
THEN cOhuLJ J: LF, IF - 
GOTO — ELSE (z&t t &, 
GOTO, ELSE tfOUfJtZ ( , ) £o 
tl-Ct J:v\ 

• ELSE <nh t <r> GOTO fiitBg- L 
Xliftb*'''. 


PCI 00 • PC88 t\s\t. 


MSX • CPM t\ p] L. 
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fRCTJg L GOTO 

: GOTO 70 

ft®. : i *§^1"&Lr#-*§-3;(±, ( tz t z.l£ REM :£) -etJ:< 

- z b ntf&m t *> n & 

2 GO TO i «r 


n ^ ~7 • “STOP” A 

-s. “STOP” <7)i#£^f #-5f-30/\!1W4 i rrT'g>. 

10 INPUT E$- 

20 IF E$ < > " s top" T H EN P R I NT " t =; w l- "} = " ; £$■ 
: GOTO 10 
30 STOP 
40 END 
* ff m 

? abc 
€L>'V;=abc 
? 9t 

£-j'W=9t 
? MX 
€i>'V!MWs 
? stop 

Break in 301 

0k| 

cont 

0k| 


#fl% : ON GOTO, IF 


u-y- 


APL 


TRS, 

• mt. 

CPM 


M223 

• ^iHJb. 

MZK 


CBM 

• A^ Xt IhJ t. 

PC8 

• H8. 

TRSji 


PC3 GOTO “LABEL” 

GOTO (Al+2) 

• 0 iZ V'OVZ t 

Sr^ttS. 

yj')fexbtiz>. 

if8 2 


ls"<Jl*3 


C180 

• **£|K]b. 

M243 


MZB 

• 2F3t<i:IW]L. 

BUB 

• **:£p5]b. 

FM8 


PSP 


PC88 • ‘He -7^<)\s 

1) UHL £> . 

N52 

• tttrnt. 

PC6 

• **£|5]b. 


MLT 


HC 

• fsJb. 

FP1 1 GOTO 70 

GOTO PROG1 

• ft&-%r<7>Kh 0 CLn • JE. 

cc7>^^, 

T -2> . 

• GO t TO ^fUJc7) — 7 . (i — z> 

SMC 

• PC88 blilb. 

MZ35 

• PC3 £ isj b. 

XI Hu 

• pcss tmt. 

MB1 6 

• «c iisjt. 

IBM55 

• *:fc£Inlb. 

PC 100 

• PC88 ^|Hjb. 

MSX 



^ CO -frl® ON GOTO 


MjS. : ON Al + 3 GOTO 70, 170, 270 

'vyo 7*7AC0$l]®]^^-r. 

wa : 1 ») &Xkt Ih. 

-T--7 — 

4 -To iT7A$lJ^]c07Jitn^^<7)ftU J: oT, 


~f □ *f ^ A#lJ : I0i§3, 4 dz^'fb^-tM-2 (TM&lCcfc^T, ft&ft 

40, 7o/\^n-? : n^Jt'r^>. 


10 

1=3 




20 

ON 1-2 

GOTO 

40,70 


30 

END 




40 

LPRINT 

"LINE 

NO. 40 

I - 2= " ; 1-2 

50 

1=4 




60 

GOTO 20 




70 

LPRINT 

"LINE 

NO. 70 

I -2=" ; 1-2 

80 

END 





ft m 





LINE NO. 40 1-2= 1 

LINE NO. 70 1-2= 2 


#0S : ON GOSUB 
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7t y • zf— h-o 


APL • IW1 L. 


TRSi • ^tWit. 


CPM -^SCtWit. tzt* L, 5$ 
<r>tiL<n4'%Mft\* fflMX? n Z> . 
s*; eolith o £ £{ifr#-^-<7)l®3&cfc 
0 , 

y y *t — x § ft -2) . 


M223 ftft'L, 5^ 

<n\ txtl>x7- 

£>-f, ^<7)^f(3-7°U /7 
£**£6. 


MZK 

• M223 tWit. 

CBM 

• *-£ tmt. 

PC8 

• 4^#®. 

TRSu 

• tttfflt. 

PC3 

• ^z5c t [WJ L: . £ Mz, fr 

#-^<7)f^^> ») lz : 7'<)V& L 1M X 

$h. 


IF82 

• CPM ^ fn] L. 

lss<J\s 3 

• &.<7>m<n'\'%L%v>fti&m& 

5LA£ft<2>. 


C180 ON Al + 3 GOTO 70, 170 
ELSE 

<7)M£J: ELSE 

i:i< ELSE 

li in- -7 — E108" 

tfhh. 


M243 -M223 tWit. 


MZB • M223 t\ *it. 


BUB 

• CPM ^ISIL. 


FM8 

• M223 twit. 


PSP 

• M223 tWi t. 


PC88 

• PC3 t Wit. 


N52 

• tttmt. 


PC6 

• tttWit. 



MLT • 

-2). £ fc, i®2tii, ^<7)±§^ 
£ 255 J: n±^^m^izsc.y—t 
t£ h . 


HC • W^<7)luK±0^^255i 
XX h h . 


FP1 1 • M223 ^ |W] L . ttz, ft 

ni^c(±, ft&ftmzfriz-rv x-7 

A • JL 


SMC -PC3tWit. £f L , s£ 

<7)iitc7)/j^^(iEg^£A$n, 
<7)lit^ 256 Lt_t<7) £ £ i -i- 7— t 
tnh. 


MZ35 * PC3 ^fWJb. &ft\ 
2 XU M223 ^IhJL. 


XI Hu • <h [hJ L. 

• Tf&ftcoiKfr 0 lz 1) 1£ x. 

h. 

• &J2HZ ON-RETURN 

ON-RESTORE 
ON-RESUME 
~$Lt) < fo i> . 


MB1 6 

• \/ ^<)U3 tWit. 

IBM55 

• MLT tWit. 

PC100 

• ^<7)ljI<7)/J'3&£B'fr(± 
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ON GOTO y^y . 


• y'OvZ bflitZ. 


msx 


f— so 


WHILE 


Mj£ : WHILE Al< A£ 

: &n-xwuxh&\\\\ , i-&. 

-S |!ij, 9 &T\ 

2 WHILE £ 6tL , ’^>'^*^4 J t:'c7) GOSUB, DEF ^)fsUU(±'C 
£ £*v\ 

3 &1&IZ A1^A2 t^^tz t ^ 

UNTIL Al> = A2 ililftiS. 

4 FOR- NEXT £U WHILE L tlUi 

mX'hh. 


—f p =y ij i ~y x >k x~ "j ^mi\(Dm%<Di$.mou±izte&mr*<b 
&. 

10 OPEN "POUT" FOR OUTPUT AS FILE 1 MODE 3 

20 LET J = 1 

30 LET K = 1 

40 PRINT #1 , K 

: PRINT #1 , K 

50 LET I = J 

I LET J = K 

: LET K = I+J 

: PRINT #1 , K WHILE K < 30 

60 CLOSE 1 

70 END 

m *t m 

i 

1 

2 
3 
5 
8 

13 

21 

34 


#fjB : UNTIL, FOR, NEXT 
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APL 

— 

TRSi 

- 

CPM 

10 WHILE A1<A2 

50 WEND 

• t£lt WHILE 

tztuznfci-z> wend <x>m<n 
%ft£W')teLmftirZ>. 

• ^ MX * V ' t 
£{±, WHILE t WEND tfOfUJii 

• WHILE- WEND |± £M1kX £ h . 

M223 

• m. 

MZK 

— 

CBM 

- 

PC 8 

- 

TRS i! 

- 

PC3 

- 

IF 82 

• CPM tfflt. 

U' 

- 

Cl 80 

- 

M243 

• M223 tn It. 

MZB 

- 

BUB 

• CPM £|sJL. 

FM 8 

• cpm tmt. 

PSP 

- 


PC88 • CPM t |hJ L . 


TtsX’XJIy 


N52 

- 

PC6 

- 

MLT 

• CPM tmt. 

HC 

• CPM tm t. 

FP1 1 

• cpm tmt. 

SMC 

• cpm tmt. 

MZ35 

- 

XI Hu 

• cpm tmt. &*&, 

GOTO tVU— ■ to tit* 

MB1 6 

• cpm tmt. 

IBM55 

• CPM ^ IWI L. 

PC 100 

• cpm tmt. 

MSX 

- 
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H UNTIL 

: UNTIL Al> A2 

: tkftxKfrMiz 4* i> £ X\ — J£<7 ) ^ £ m. 0 '& L ^ffi" 6 . 

I 1 '#5ec7)^^- £ £>*1, &* 

& £ T% i) 

2 UNTIL ^^'ti-7'/u-f-^;co4*-cc : 0 GOSUB, DEF 

£ 

3 ^fT^viiiU &*- ti hif&to i [y] (i /u ^ f fT & $0 T'&.u: 

iot WHILE Al< = A2 tu \ sJ L 

4 FOR- NEXT jfcd UNTIL & £, **>ttfl&*‘l«!lJ:L XU 

WX'hh. 


7°n J 7-7U^i\ : x) ^ 

OPEN "POUT" FOR OUTPUT AS FILE 1 MODE 3 
LET J = 1 
LET K = 1 
PRINT #1 , K 
PRINT #1 , K 
LET I = J 
LET J = K 
LET K = I+J 

PRINT #1 , K UNTIL K > 30 
CLOSE 1 
END 

m 'xt m 

1 
1 
2 
3 
5 
8 

13 
21 
34 


#flg : WHILE, FOR, NEXT 


10 

20 

30 

40 

50 


60 

70 


Jjyzr-f) [y 


APL 

- 


TRS i 

- 


CPM 

- 


M223 



MZK 

- 


CBM 

— 



PC 8 

— 



TRS, i 

- 


PC3 

- 


IF 82 

- 


lx '< < /U3 

— 


C180 

- 


M243 

• *-% t\*lt. 


MZB 

- 


BUB 

- 


FM 8 

— 


PSP 

- 


PC 88 

- 


N52 

- 


PC 6 

- 


MLT 

- 


HC 

- 


FP1 1 

— 



SMC 


MZ35 — 


XI Hu 10 REPEAT 

50 UNTIL A< 1 

• GOTO X'>\s—-r<ntUziittit>n& 
v>. 

• WHILE- WEND t ') , <&T 
REPEAT- UNTIL PH l J<50^c(i, jj£ 

i&i mmn- ztu>. 


MB1 6 — 


IBM55 — 


PC100 


MSX 


7 T 4 AT EOF #n 


: AT EOF #5 : 100 

T T — 

«iZ^ MW fr#-^- 

I x>F - t7'-7r / f^ (EOF) *&5£L*:4f# 

wa : 1 CLOSE# £, CL t Kc h . 

2 TRAP 2: J: *) 

ZKtj'lrh t £, •T'—?cr>®rt > ») £*n£*>(.i1EflJ’Cife£. 


7°P^'^A^IJ : AFILE £r{^U , =r— 

*UT^U>htS (^frffllte RESTORE ##J»). 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


DIM B<1) 

CREATE "AFILE/l" » CONTINUOUS <10, 9} 
OPEN n 1 : :l AF I LE/1 M NGUT * F I XED < 1 0 > 
AT EOF #1:240 
FOR 1=1 TO 10 
B<1)=I*3 . 14159 
PUT #i:B 
NEXT I 
RESTORE #1 
N=1 

GET #l:E! 

PR I NT " f 3-M - " 5 N , " I :;:V2^= ” ; B ( 1 ) 
N=N+1 
GOTO 200 
PRINT "END" 

END 


#Jjg : EOF, ON ERROR GOTO 
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>^s • x>k • 7r^' • 


APL -tti&fcL. fcfcfL. 
10 ONERR GOTO 170 


170 IF PEEK(222) = 5 THEN 100 
X'mffinz t «T. PEEK (222) T 
X7- • 

£ & . j. 9 — • 3 — K 5 ti EOF 
rytft&X'bZ (ERR#®). 


TRSi fc*5U 

IF EOF (5) THEN 100 £ 7 T 

5 li 7 T >f 


CPM • TRSi ilH]L. 


M223 

10 ON ERROR GOTO 170 

170 IF ERR = 11 THEN GOTO 
100Tro«<^w£***r. ERR*<11 
7 7^^ T £tf1\ 


MZK • mmzL. tzt' L, 

IF EOF(#5 ) THEN 100 £ 7 r 

1 7b<*r. 


CBM 

— 


PC8 

• TRSi 

trat. 

TRSn 

• TRSi 

tffl t. 


PC3 •f&g&L, tit' L, 
10 ON ERROR GOTO 170 


170 IF ERN = 209 THEN GOTO 
100-CIW mnzt&nl. ERN?^209 
X ~7 T T ^<7)*&7 £tf1". 


IF82 • TRSi £1*1 t. 
u-<;u 3 • TRSi £ rat. 


C180 

• v#3c#!K { .. 

M243 

• M223 tra t. 

MZB 

• MZK tffl t. 

BUB 

• trs 1 *ra t. 

FM8 

• trs, tra t. 

PSP •ffCMaSrL. 

INPUT #5 ; E $ EOF 100 T 
rait^c fc*<nT. 

PC88 

• TRSi *ra t. 

N52 

• TRSi ira t. 

PC6 

• TRS, irrat. 

MLT 

• trs, tm t. 

HC • mmtcL. tzts L, IF 

EOF (3) THEN CLOSE#l 
ELSE -GOTO 100 T"[hJ fficozt 
W 51. 

FP1 1 

• TRS, tra t. 

SMC 

• TRS, trat. 

MZ35 

• PC3 tffl t. 

XI Hu 

• TRS, tra t. 

MB1 6 

• TRS, trat. 

IBM55 

• TRS, tra t. 

PC 100 

• TRS, *rat. 

MSX 

- 
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17-fclM ON ERROR GOTO 


MA : ON ERROR GOTO 70 

.* x-y—fr&'kL tzt£, 

.* 1 7^/7 A iO^lf 4' l: i 7 - L /: , ON ERROR 

GOTO -Jed J: o -C^frti + Wr3 Hf, L fcfr G 

#i£ v — ^LS-Ou— -F> l, -^7-<7)%4 l(i J: &^|fr 
^t£it £ Hi 

2 ON ERROR GOTO 0 1~ & t , 1 <?) &'&£%* ±-f Z> Z t 

t)<X£ b. 

3 — Ul;u — -f->|*JT', ON ERROR GOTO 0 £^TrT£i, 

Ml £ fr *? ■ 1* li my £ W±-f Z> . 

4 jfini L fi A L & v ' £ £ (i, .x. ^ — £ f §££’t' & . 

5 i?-*qfeifeLfcl$, 1 0*rttJ|U.\ JlSA/jf&U: ERR b< 0 X 

6 M«TfiE^i7-i: J: *^ff«oflf±S:Hi <r ^ t frXZmqxh 

h. 

<#^> >v-+> com frpiz l *: £ £ , mfrttw 
jl.'t' h . 


-?U J 7-7,UW\ (0 [Cj;^|55t^;id;x^-ct^:^>). 

10 ON ERROR GOTO 100 
20 INPUT A 

30 PRINT 11 1 / " ; A ; " = ”;1/A 
40 GOTO 20 

100 IF ERR= 1 1 THEN PRINT " ERROR" 

1 1 0 RESUME 20 


* fir W 

? 4 

1/ 4 = .25 
? 6 

U 0 = ERROR 

? -3 

1/-S = -.125 

9 

Break in 20| 


#flg ♦ RESUME, ERR, ERL, ERROR, CAUSE 


7T> • JL=y— • Zf— "J— 


APL ONERR GOTO 70 


TRSi 


CPM 

• Kxtmt. 

M223 

• *-*:tmt. 

MZK 

• m&tmt. 

CBM 

- 

PC8 


TRS„ 

• **£|5jl;. 

PC3 

• «^IhJL. fc/'U -x- 

~7 — 

MttfcfrfrWWU, 

> • 


mWAWW j) cofr&^xffifcx 

# h 


if8 2 


u-c;u 3 • mtc £ IhJ d . 

C180 


ttzt £(i, yX7AA f X7- / £L 

m\>^ m mtmz * w-t . 

M243 

• t. 

MZB 

• *£ £ M C . 

BUB 

• ** i IhJ t . 

FM8 

■ A^kt ffl t . 

PSP — 

PC88 

• \ J' ffr ’'&<?) iXi~> 0(i -7^<;u 

KhWxLZ. 

N52 

• A^Xtmt. 


PC6 

— 

MLT 


HC 

■ «irat. 

FP1 1 

♦ *-x t m t . 


smc • ft %-%-iz i mm 

x% &. 

• 128 — L 

tzV&li, mZfjX'&Z. 


MZ35 

• PC3 t I»J t . 

XI Hu 

• pcss tmt. 

MB1 6 

• tttmt. 

IBM55 


PC100 

• PC88 tmt. 

MSX 

• mt. 


x 9 - ERROR 


: ERROR Al + 3 

W&fe : i-fl:Ui7- 

&-%‘<7>‘£m£'*rmz-Fz>. 

I 1 fc*5L, $6ffll± 0 -255 £ 

T\ 

— £5c*t*6 £ , Z<7)jL7 — &-%-cr>jL 7 — • y v -fe — >' £ CRT tc 

3 xz.-HtT!ii & Co j. ^ - m-% & fcm-f h m&, xxta xwm z a 

X V'£t'#+>£ftk‘*5. ON ERROR GOTO Xt> { h 

h £, 

4 ON ERROR GOTO JC<nT'< v 7+£ l t felif IJT& 6 . ^ 

ffl #**&! I'|^)i7-' f»ii -5 . 


37° □ : x^-##36<OX^-*«»WK:»^-dr«. 

100 ON ERROR GOTO 200 
110 A= 1 3 s A 1 =23 
120 ERROR A+Al 
130 PRINT "END" 

140 END 

200 PRINT "ERROR NUMBER* " ? ERR 
210 PRINT "ERROR LINE = "3 ERL 
220 RESUME NEXT 


m & m 

ERROR NUMBER* 36 
ERROR LINE = 120 

END 


#0B ; ON ERROR GOTO, ERL, ERR 
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17 


APL 

— 

TRSi • misK.<niM±**%i.X’l ~ 

255 c7)#PH. 

• CRT i:x7— • 3— K£^^L, 

CPM 

• *X£Wt. 

M223 

— 

MZK 

- 

CBM 

- 

PC 8 

• 4; '£#!!». 

TRSn 

• trs, tmt. 

PC3 

- 


IF 82 ERROR 3 


m.mt \~2tt(x>ffim. x7-#f 
£ LX is LX't'h 

“Unpritable 

error” £ £B^J "T 6 . 

ERROR <h ERL |lij 

ERROR *<7)A6ff# 




Cl 80 • 'C 1 ~ 

255 <50 TuiPH. 

• ± 7 ’d77A^ ERROR 

^fr1"6 CRT U 

Lt^fr4 , J h. 

. Mlj7°u ^7 ERROR 

CALL -tt:i7-i'' 
%£L£: i <7) i L, CALL 
b £' ») , i 7 6 **, 

^ 1 A*c<7) 

1? ffiil Ti - 6 . 

• xz_— -*f (- J: & , j. 7 — # vj- £■ 7ii .& 


L tz^ 

£ £fi, CAUSE Al + 3£ 

M243 

- 

MZB 

- 

BUB 

255. 

• nwjK<r)m<7>w.m$ 1 ~ 

FM 8 

• bub tmt. 

PSP 

- 

PC 88 

• * * £ [nj t . 

N52 

• IF 82 £mt. 

PC 6 

- 

MLT 

• *i££mt. 

HC 

• if8 2 £mt. 

FP1 1 

• TRSi £fsjb. 

SMC 

• ERR 

(N) -Cifii. 6 . 

MZ35 

- 

xi Hu • if 8 2 tmt. tzt* L, 

ERROR Z> £ ERR ^ 

|gci;x7-- 3-K, ERL 
(-^<7)Lr #-¥•*'' A&. 

MB1 6 


IBM55 

• «C£|W]b. 

PC100 


MSX 

• BUB ^IhJL. 


- 100 


TRAP ON 


WtiS. : TRAP ON 

T 

&& 

fc-f 6. 

«RM# ! 1 TRAP ONt^^tl). 

2 TRAP OFF-C^ttftje^j^Ks-r*. 

3 EXCEPTION £ EXCEPTION END 


y □ ^ ^ A^lJ : I/O X^-#5§£U7c:^, ^-(7)T7pT>lb#^-c!i, X 
^-•H-K (FILE f^I^CCDfiS) EOF (7)^ 

CLOSE UT^§. ^C7)ft{lC7)X^ — 

<£>!#£% -e-wx^— tf#^-i4orco 

X^ — li, B (1 ) h'0(F>i%&-&(nX&(±) $■ 1 1C UI 

100 DIM BCD 
110 TRAP ON 

120 OPEN #5: "BFILE" » INPUT 
130 INPUT #5:B<1) 

140 PRINT 1/B(1) 

150 GOTO 130 
160 CLOSE #5 
170 EXCEPTION SECTION 
180 IF EXN0=1 THEN 
190 IF FILE(EXFN0)=7 THEN * *- 
200 RESUME 160 * ^ 

210 END IF 
220 PRINT "I/O ERR" 

230 PRINT TILE NO =";EXFN0 

240 PRINT "ERR C0DE= " ; F I LE ( EXFNO ) 

250 RESUME 350 
260 ELSE 

270 IF EXLINE=140 THEN 
280 B(l)=l _ _ 


290 

RETRY 

^ H &l : 

(^(DZ) 

300 

END IF 


I/O X^-LWcD 

310 

PRINT "ERR =";EXN0 


x^— (nm&. 

320 

RESUME 350 

ERR 

= 52 

330 

END IF 

340 

EXCEPTION END 



350 

END 




#g I EXCEPTION SECTION, EXCEPTION END, ON ERROR GOTO 


m : (^rt D 1) 
I/O X^— 

I/O ERR 
FILE NO =-l 
ERR C0DE= 3 


h^'^y • yy 


APL • ONERR GOTO 70T 
TRAP ONtlWHfcO’ tfrX'Z.b. 


TRSi • ON ERROR GOTO 70 

X\ TRAP ON, ON ERROR 
GOTO 0 T, TRAP OFF £ fflffi 
<T>Z £ frXr* b. 

CPM 

• TRSi t rat. 

M223 

• APL £[n. JL. 

MZK 

• APL t fflt. 

CBM 


PC 8 

• TRSi tfflt. 

TRSn 

• trs. t mt. 

PC3 • ON ERROR GOTO 70 

ttzli, ON ERROR GOSUB 
70 TTRAP ON, OFF ERROR 
TTRAP OFF £fflffi<7)Z t t><X 

IF 82 

• trsi t fflt. 

3 

• trs. tfflt. 

Cl 80 


M243 

• APL <h ThJ L . 

MZB 

• APL i: fsj L . 

BUB 

• TRS. t fflt. 

FM 8 

• TRS. >[bJL. 

PSP 


PC 88 

■ TRS. <L[»JL. 


N52 • TRS, tfflt. 


PC6 — 


MLT 

• TRSi tfflt. 

HC 

• TRS, tfflt. 

FP1 1 

- 

SMC 

• ERROR ON T\ TRAP 

ON, 

ERROR OFF X\ TRAP 

OFF 

tffll&KZ.tfrXZh. 

MZ35 

• PC3 tfflt. 

XI Hu 

• TRS, tfflt. 

MB1 6 

• TRS, tfflt. 

IBM55 

- 

PC100 

- 

MSX 

• TRS, tfflt. 


resume 


: RESUME 70 

ibfwft »r 

I 3-7— 7°o ^7 A<7)^Tr£f 1 jf#jT6. 

: 1 JH7 — -/a /7 Ac7)^fr ^-ItxEL *lfr#-^G0Tr 

-5> . 

2 «fc o-CJUT^^«rai"<‘&. 

(a) RESUME £ fcti RESUME 0 

7° a ?'7 A^^t£#I#IT6. 

(b) RESUME NEXT 

i7- 7" D ^7AC0^T£f»J1- 

6 . 

3 RESUME *(±, x7-^l7‘7/7AW^h •) ?:^t. 

4 X. 7— 4!!r3U£, 7*0 7*7 A^OefeTr . 


Zfu +f =7 A#lJ : DATA READ #Tt7E<&i£tr. 

10 ON ERROR GOTO 100 
20 DIM 6(10) 

30 FOR 1=0 TO 10 
40 READ B< I ) 

50 NEXT I 

60 FOR 1=0 TO 10 SPRINT BCDjsNEXT I 
70 DATA 0,1, 2, 3, 4, 5, 6, 7 
80 END 

100 IF ERR = 4 THEN RESTORE 
1 1 0 RESUME 40 


* 'it m 

01234567 0 12 


#flS : ERR, ERL, ON ERROR GOTO 


101 - 


UVzl—L* 


apl • *-£ t Is) t . fc fcf L , Tr 
#-¥**>$&5eU:fr;c.T, J.7-^% 
± L tzX <r>mi)-h' Z> m~r £ ^HfJT 

6. 


TRS i • 

CPM • t I'nJ t . 

M223 • fcX L [WJ L . fc L , fr 

#-^-£ 0 £fcfi£»&bfc£ £ li, 
ERR = 0 t L, -317 — <7>S&£Lfc 
^ c7)^5C** ^ ^ T 6 . 

MZK - fcfcfL, ff 

#-5§-£ 0 £ Lfc £ £ti, 7° n /7 
A (F> %&{*)' io £ &F3 T 6 . 

CBM — 

PC8 • 4^ £#!!«. 

trsh • 

PC3 • x. 7 — 

RETURN i *: (i GOTO :Sc £ ffl V' 

xm=f 

IF 82 • *£ £ [WJ b . 

u ^<;u 3 • b IhJ b . rt: fcf L . 

Cl 80 • M223 ^rlalb. fcTbb, Ji 

3lfflT'£ 6 . 

. jr .7 — t'Z> 

RETRY i>fr>Z>. 

M243 • M223 i: |WJ b . 

MZB • MZK £[WJb. 

BUB • * X t fnJ b . 


FM8 • i^^/U3 i [o] b. 


PSP — 


PC88 



N52 

2 <n (a) (i RESUME 


PC6 — 


MLT 

*X£ IWJb. 

HC 

**£|5jb. 

FP1 1 

£ In) b . 

SMC 

PC88 ^ |W] b. fcfcTL, 

RESUMEO <±, *#-*!■ 0*>fp&‘^ 

WBB1-S 


MZ35 

ON XX— h / 

> h T'x 



XI Hu 

SMC tl5]b. 7 

x. 6 . 

MB1 6 

**£|B|U. 

IBM55 • 

**£|H]b. 

PC100 • 

PC88 blWJb. 

MSX 

*:fc£|s]b. 
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:n-5-#g:£?T ERL 


: erl 

1 IF-THEN 

2 (^»). 

3 x?- IF 
ERL=65535 THEN— fcffiV'S. 

4 ERL <7)fi[(±, ERRcoUC^OJa^t^iSBlc^io. 

6 jc.^— 


7°P J =7 A#lJ : 

10 ON ERROR GOTO 100 
20 INPUT A 

30 PRINT 11 SQR < " ; A ; " > = " ; SQR < A ) , 

40 PRINT " 1 og< " ; A ; " > = " ;L06<A> 

50 GOTO 20 

100 IF ERL=3G THEN 130 

110 IF ERL=40 THEN PRINT * ERROR" 

120 RESUME 20 

130 PRINT SQR< -A) i RESUME 40 
m ff m 
? 5 

SQR( 5 )= 2. 23667 1 09< 5 >= 1 . 60944 

? -5 

SQR< -5 )= 2.23607 i 1o9<-5 )= ERROR 
Break in 20| 

#fig : ERR, ON ERROR GOTO, RESUME, ERROR, CAUSE 


1^ — 


APL — 

PC88 -*££Mb. 

TRSi • fflt. tzK L. -x- 

ERL <r>\m$ 

0. 

N52 -ttb Mb. 

PC6 — 

cpm -A^Xbmt. 

MLT -tttfflt. 

M223 ERRL 

• tzts u on 

ERROR GOTO^', .s^ — §&& 
£ti f 

ERRLU(i^C#-^-(±^$^L^V'. 

• ERRL<7)fti(ii~32255<0$ra. 

hc -A^xbrnt. 

FP1 1 • A^Xbmt. 

SMC • A^X £ M b . 

MZ35 -*Xbls\t. Zb\ &{& 

2 T'ftAI ~hZ.b1)<X'£Z>. 

MZK -tttmt. 

CBM — 

xi Hu • A^xbmt. 

PC8 • 

MB1 6 -AtXb Mb. 

TRSn • bfflt. 

IBM55 •«:<>: Mb. 

PC3 — 

PC100 - A^Xb Mb. 

if8 2 -A^xbmt. 

MSX • *Xb Mb. 

L"<ju 3 • 


Cl 80 EXLINE 

tzt * L, 

’ tmmkm t 7—^mt bU' 
h b £ EXLINEsofj/Ui-l. 

M243 • M223 t fnj b . 

MZB • A-Xb ML. 

BUB • A^Xb ISflb. 

FM8 • ** b r»J b . 

PSP ■ A^Xb Mb. 


— &LiI ERR 


: ERR 

I -^7— — fr^RsgSix*. 

1 IF-THEN 

2 w<7)^&KftAf±T'£$:v> (WMfc). 

3 — (50irt^JfcJS*CI±, ERR cniftilt 0 . 

4 jl 7 -ifitSUc is ^ x, a- 7 — wfiKH £ h<n\z \m\ Xb h . 


-? □ + f =7 a#ij : &&&&#>& 

ii m&x.&nz>). 

10 ON ERROR GOTO 100 
20 INPUT A 

30 PRINT " 1/" ; A ; "* " ;1/A 
40 GOTO 20 

100 IF ERR=11 THEN PRINT "ERROR" 
1 1 0 RESUME 20 


* fir ea 

? 5 
1/ 5 
? 6 

1/ 0 = ERROR 
? -5 

1/-5 = -. 2 


= .2 


? 

Break in 201 


#M : ERL, ON ERROR GOTO, RESUME, PEEK, ERROR, CAUSE 
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APL • jl? — 222 M!i(- 

PEEK (222) lz 
J; ') jl -7 — t? JtL i> . 


TRSi tzf* b, 

( (ERRsOfiH) /2) + \ij'X- = 7 — # 


CPM • 4^ £ l»J b . 
• ST ^ #M. 


M232 


^ t i: InJ t . 


MZK ERN 


CBM DS 
• DOS 


PC8 


• A :£#!'#. 


TRSn - A^-xtmt. 


PC3 


IF82 


A *X£ r»J l: . 


<7u.i • 4 :#: t InJ b . 


Cl 80 EXNO 

• M£(± * £ £ I'riJ l; . tzt'L, -*-7 

EXNO <n\[UM 

- 1 . 


X^— • 7>/\" 


N52 

• **£ mt. 

PC6 

- 

MLT 

• ** 1 151 1 . 

HC 

• ** i ISJ U . 

FP1 1 

• tWit. 

SMC 

• **£|5lb. 

MZ35 

• mzk tmt. 

XI Hu 

• *:fc£P3b. 

MB1 6 

• *ict mt. 

IBM55 

• £:£<>: iwib. 

PC100 

• *-Jc tmt. 

MSX 

■ -mctmt. 


M243 

•**:t r»J b . 

MZB 

• MZK tmt. 

BUB 

• A >c t fa b . 

FM8 

•text mt. 

PSP 

•Art ct |sj b . 

PC88 

• A^ictmt. 


104 


m\y°a ^=7 gosub 


Mxt : GOSUB 70 

mm 

^Wl : i >\s-+ > & . 

2 *Y-r )V — ^->(F> r£X% SIJC7)-^7';U— -^> 

XT' i > 7). 

3 GOSUB cr>7 L 6 (i, && J 5lzm& 

4 7”u 7v^tpxmt1 / EM$:$&l£frft im&lz, Zcr>ftM £— o 


yp^7A^J :v-yj b— (6o—7o) 


10 

1=3 


20 

GOSUB 60 


30 

LET I = I *2 


40 

LF’RINT "1 = ":. 

I 

50 

END 


60 

LPRINT "SUB 

60 

70 

RETURN 


m 

ft m 



SUB 60 1= 3 

1 = 6 


#,HB : RETURN, GOTO, ON GOSUB 


a— tty 


APL 


TRS i 


CPM 

• **tmt. 

M223 

• tttmt. 

MZK 


CBM 

• *sctmt. 

PC8 


TRS ii 


PC3 GOSUB “LABEL” 

GOSUB (Al + 2) 

* ft& J $(?)lifrlZT'<J\s£ 1 ££5C5S£ 

TW'lUtX 

IF82 

• **£ fflt. 

U' 

• tmt. 

C180 GOSUB 70 

ttzlt, GO SUB 70 

M243 


MZB 


BUB 

• «c£IhH:. 

FM8 

• ^ £ tmt. 

PSP 

■ tmt. 

PC88 GOSUB 70 

GOSUB * LABEL 
• • ft&^r<X> I3.fr IZ = 7'OV& {j & . 

N52 

* £ 15] t . 


PC6 • « > IhJ t . 


MLT • ^^C^IWJb. 


HC 


FP1 1 GOSUB 70 
GOSUB PROG1 

• ft -To A • jl 
') 6 . 


SMC 

• PC88 tmt. 

MZ35 

• pcs tmt. 

XI Hu 

£ & x 6 . 

• GO SUB Xh J: v\ 

MB1 6 

• afcfctra t. 

IBM55 

• Tilsit. 

PC 100 

• PC88 tmt. 

MSX 

• *sctmt. 


— ilj£ ON GOSUB 


Mat : ON Al + 3 GOSUB 70, 170, 270 

£«&. $M) M L "I 

W&L : 5**>ttfc»UfL, J: o t4i. b 

Hi £ 1" & ■+ zOu— + >i:7”o/7 a <7)$IH® £ *£+ . 

2 t &* h . 

3 5£<7MiiL£''0 £ 0 -7 °o?'7A 

4 -7°o #t >'— ^izttth 


■7°P AtflJ : KDl^l cbbT, 3SI+ 2©fi£^*T, tf-TUb— ^ 
> (8o~9o) 


10 

i = i 


20 

ON 1+2 

GOSUB 40? 60? 80 

30 

END 


40 

LPRINT 

"SUB-1 " 

50 

RETURN 


60 

LPRINT 

"SUB-2" 

70 

RETURN 


80 

LPRINT 

"SUB-3" 

90 

RETURN 


m 

n m 



SUB-3 



#0B ; ON GOTO, RETURN 


105 


7f> • U— • It 7 


APL 


TRSi 


CPM 

• ^Xtfflt. fc*5L, ^ 

<7)fe.<7>'b&8MHt P9^£A$ ti h . 
0 ifcliffffwjWSJ: 
►), 

y -y-fe 


M223 

• +3c£|Hjb. /w t* L , ^ 

+, -7°o 77 



MZK 

• M223 tfflt. 

CBM 

• tttfflt. 

PC8 


TRSn 

•met fflt. 

PC3 

• AT: £ fab. $A«ci, fT 

#-^<7)ft;b ») C7^fflt 



IF82 

• CPM £|S]b. 

p^;u 3 


fi.A2tl6. 

C180 

ON Al + 3 GOSUB 

70, 170 ELSE Hfnfc 

WT, 


ELSE<7)iA<7)gSfT:*:£ 
ELSEj&<£v*£ #{i. 

i7- 

^n<7) “E108” 

M243 

• M223 tfflt. 

MZB 

• M223 tfflt. 

BUB 

• CPM ^ fn] b. 


FM8 

• M223 tfflt. 

PSP 

• M223 tfflt. 

PC88 

• PC3 tfflt. 

N52 

•ttt fflt. 

PC6 

•tttfflt. 

MLT 



J&TLA£n<£>. £*:, »2tlJ, 
Mcom&t 256U±<?>m&l~*-7 


HC 

• W^^fi(i0-255(7)^ 

mx-Kc 

< TI±^(t4*V'. 

FP1 1 

•M223 ^IWJb. £*:, ff 

#-5§-<7)(2*HZ, yn/7A-i'J 
T#-f-£*&5gT*£ &. 

SMC 

• PC3 tfflt. tzt* L, ^ 

<7)fjg£< 

256 U+^+ i>^9—£ 

MZ35 

• PC3 iilJb. fcfc, 1#® 

2(± M223 £|H]b. 

XI Hu 

• Urol's tfflt. io , 

') t- & 1$ Z. 

h. 


MB1 6 

• P ^7U 3 <h fn] t . 

IBM55 

• MLT £|5]b. 

PC100 

• EJ££. AS ft 

%>. 


• -7'<)\'%i i) h . 

MSX 

• A3:<!: Is] b. 


- 106 


S'J 7° □ 9 =7 A b (D & if u RETURN 

Wtj*. : RETURN 

mm . : 7"o ijflai£, / -f > • 7° a /?/,(: t £' 

t. 

4 #^ * 1 — o$o-»rr;u— -oJU_h< 7 ) RETURN motUv' 


^ n ^ "7 A#iJ : 1X1(7) ( * ) 


$1=2, 4 lC-T>L>T"fv3b 

10 1=2 
20 GOSUB 60 
30 1=4 
40 GOSUB 60 
50 END 


60 REN SUBROUTINE 

m ft $ ij 

70 FOR J=1 TO I 

:+:*: 

SO LPRINT STRING* (I, 11 * 11 ) 
90 NEXT J 

100 LPRINT 

•t- ■+• 4’ ’t‘ 

110 RETURN 

•t- ■4’ 'f" 


#fiB ; GOSUB, SUBEXIT 


IJ57-> 


APL • — ^t7';i,— f>f:- 




TRSi 

• A^X t |sj b . 

CPM 

• *-*: b raj b . 

M223 

• **fc|S]b. 

MZK 

• A^Xtmt. 

CBM 

• ^ >c > l»J b . 

PC 8 

• -&SC&M. 

TRSn 

• A±X t I»J b . 

PC3 

• A^xtmt. 

IF 82 

• BUB tmt. 


• *-*:*|njb. 

Cl 80 

• A^X t M b . 

M243 

• A^X tmt. 

MZB 

• a^x tmt. 

BUB RETURN 70 

• UTTf-I (iWT) * 

cnft^ i> £ h. 

FM 8 

• BUB tmt. 

PSP 

• A^Xt rn b . 

PC 88 

• BUB t |..J b . 

N52 

• *X t laj b . 

PC 6 

• *X t IviJ b . 


MLT • BUB tf.iJC. 


HC -A^Xt HOt. 


FP1 1 • BUB £|H]b. fr# 

yo/^A'i'jr 
^-60^, ift 

^7"a /7A • -X. IJ TtfOTfcy/l^ t 
t* h . 


SMC 

• «£|Hlb. 

MZ35 

• u. 

XI Hu • A^X tmt. $ ft 

t%<F> 

ft^ i> t' 6 . 

MB1 6 

• BUB £ |«J b . 

IBM55 

• 4;* t m t . 

PC 100 

• BUB t [wJ b . 

MSX 

• a^x t m t . 


±.Hlju — v ^<z> ir i) pop 


: POP 

I a — +> Afi<-*f-7)\s— f->B £n*(>\ Bc7)4j-r'^ -f-> c 
£DT-/L'CV'& t £, -»fr/u — -f-> C7^ML£lfrH£/u— -f- > A^t> 

*ri\ 

: i RETURN *«JOHiJtc POP ZtlZjt'iX, 

— + > &mv r zLX% <n±$LJ\,—+ > %%> if *tz>. 

2 7';u— -f- >(7) r}j *e, -X .7 — 4* $WJ & d £ L A: <L 

§ , ili:^ / T > • /w— f- > ^ (> if 'K: V> t £ 4* iffiM “C*> h . 


zfn : W)W^%'n-t^zf)v— ^> t \ 

*o, 

10 INPUT "+ ? •••■• DR S(STOP) ?"5C$ 

20 IF C*="S n THEN END 

30 IF C$=V" THEN GO SUE ELSE GO SUE "+" 
40 GO TO 10 

50+ " / " : I NPUT " D I U I S I ON .- I NPUT A ? B " S A , B 
60 PRINT A?" / "SB, 

70 GO SUE "KEISAN" 

SO PRINT "KEKKA=" l D 
90 RETURN 

100+ "KEISAN"! IF BOO THEN GO TO "C" 

1 1 0 PR I NT " n I U I ZOR ZERO ! " : POP : RETURN 
1 20+ "C":D=A.--B: RETURN 
130+"+" : RETURN 

m s « 

10 ••-' 20 KEKKA= 0.5 

10 ••••• 0 D I U I ZOR ZERO! 


#0S ; RETURN 
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7t<^y 


APL 

SMC — 

TRSi — 

MZ35 • PC3 t Wit. 

CPM — 

XI Hu — 

M223 — 

MB1 6 — 

MZK — 

IBM55 — 

CBM — 

PC100 — 

PC 8 — 

MSX — 

TRSu — 


PC3 • ^£#!!tt. 

IF 82 — 

IssOUj — 

Cl 80 — 

M243 — 

MZB — 

BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 

HC 

FP1 1 — 
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§>J '7° a ^ JxCD^U'iH L CALL 


: CALL ASUB (A, #9 ) 

| I I 

MW *&«& • fcfcOigLU 

I I 

^B&nT 

^£1 : ^L^au-ro r^A^nft/'aj-r. 

4$^: 1 sij7°a 8 

2 K9U3I& (SO-ro r^AUgsyiJ^^at 

3 ^ 5 l»t± 81 SWW-e**. 

4 xX-TA 2 it 8 d£ggt& (CRT %) (i, * 3 lft£fi-C£$:v' 

5 Sl&£ ti 

•x 3 *CB 8 ii*tt 4 iidri*fe^v\ 

6 PLOAD 3 E- 7 “a ^7 Aftfc £.*V'glj 7 °o / 7 

CALL :$C{i'J&f|*C& -S . 

7 SIJ-/U r^AJgfi. 

8 * v =J X*mt frlftlli'Z: b £*v\ 

9 C180 Tfi fcfcjZ L SlJ 7° o / 7 A £rf^J 5 fc*C£* & <^T'f«liflJ“C*#> & . 

7 4 -glJ-To ? ,; 7 A -3 . 

ffllo I n *3ltt (C180) ±V"o r^A^-'fn'IJVc? ±7 , D/7/,|l|l!l>b 


~7 U ? -7 A#lJ : NXNj[S]<7) (#) ^*b^:^>iH^^$-#^-t±^,SIJ^n^' 
^A£-, A* U/zN[CT)^T^^f-r§. 

±Zfn#^ A 

10 PLOAD "SQR.IB/0" 

20 INPUT N 
30 PRINT "N-" ;N 
40 CALL S0R(N) 

50 END 

siJ^m^A 

10 SUB SOR(Pl) 

20 IF P1<=0 THEN SUBEXIT 
30 FOR 1=1 TO PI 
40 PRINT REP$( "#" >P1) 

50 NEXT I 
60 SUBEXIT 
70 SUBEND 


#flg : SUB, SUBEXIT, SUBEND, PLOAD 


m ft m 

? 5 
N= 5 
##### 
It#### 
##### 
##### 
##### 


□ — )b 


APL 

— 

TRSi 

- 

CPM 

- 

M223 

- 

MZK ■ L. tltZL, 

SWAP^CtcJ: oTt' 4 A^-y h • 
7? / f ;kt)-/u /7A^»fO'{iiL, 
$Sfr L ^f^SWAP*<7);A^t <!;'£ 
C h. 

CBM 

- 

PC 8 

- 

TRSn 

- 

PC3 • tttmt. tzt' L, ^ 

Sl&£ Lt7 T U^fiiia^ 
1 \ 

IF 82 

- 



Cl 80 


M243 

- 

MZB 

• MZK £ IhJ t . 

BUB 

- 

FM 8 

— 

PSP 

- 

PC 88 

- 

N52 

— 

PC 6 

— 


MLT — 


HC 


FP1 1 — 


SMC — 


MZ35 • tttfBlt. Wm 

3 T'8flA1U±f€A, M7tZ h 

tti*. 


XI Hu — 


MB1 6 — 


IBM55 — 


PC100 — 


MSX -mm* L. tzt*L, ROM 
ti— b >i '•/ i?n<p>\) fcykz.T— b / 
>b£, J: »)3I*t£ 

-tt&Ztfr T-£ &. 


§IJ:7 0 P V*? A(7)$fe5i SUB 


: SUB ASUB ( A, B ( ) ) 

r 1 J 

•VM * &»& • tik 

») &L «T 

i 1 

* Sij7"o ^7 A<7>7fe9ii£>Fl\ 

4 #^ ; 1 {K9l*fc l) £li*2*fc, K9IJ5I». 7r^mi:t5. fc*5U *7 
K»^*Mi[S£*fcUR*. 7 il&l£ T'. 

2 SdWI&fi, a*t/mL7G*>E3&J«:*H\ siJ-7°o ?' 

L T(± 4* h 

3 ;u#-^-f±, au-ro /7/< 

4 yXfA2ifttttftl±, fcfcfL. ± * SIJ 

7“o r^AtzM^i: < *jS*C*>£. 

5 7 0 a ?' 7 £ott<5> C. iCJ: 0 , i7o/7At 

& j£(- 3U 

6 ^3l*fc£ffi5UBfc*>1H&, 51, *7C(i, — SScLfct+fltffcfcirV'. 

7 W£ffl^\&.<nt §=(i, _hHd^B( )<7)J:7(c( )£ott&. 2 * 

tc< 7>£ £fiB( ,). 

ffliE ; Insist CC180] Mijro 77/,ji<±ro /7 ACIifWL/:HJ, tfiJTo /7 Al**‘ 


;/□ ! NxNi© (#) 

^A£, ArtUfcNICOUT^frTS. 

i^D^A 

10 PLOAD "SOR. IB/0" 

20 INPUT N 
30 PRINT ,, N= ,, ;N 
40 CALL SOR(N) 

50 END 

siJ-^n'/^A 

10 SUB SQR(Pl) 

20 IF P1<=0 THEN SUBEXIT 
30 FOR 1=1 TO PI 
40 PRINT REP$( "#" »Pi:> 

50 NEXT I 
60 SUBEXIT 

70 SUBEND 

#BS : CALL, SUBEXIT, SUBEND 


? 9 
N= 9 

######### 

######### 

######### 

######### 

######### 

######### 

######### 

######### 

######### 
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vry 


APL — 


TRS i 

— 

CPM 

- 

M 223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRS n 

- 

PC 3 

•tttmt. tzt* l, 7 


''Am± b ( * ). 

IF82 

- 


- 

Cl 80 

• A £#HU. 

M 243 

- 

MZB 

- 

BUB 

- 

FM8 

- 

PSP 

- 

PC88 

— 

N 52 

- 

PC6 

- 

MLT 

- 


HC 


FP 1 1 — 


SMC — 


MZ 35 • PC 3 £ [WJ b . &£>*, W& 
1 3I&B (*)t 

i~6 £ 3*tcU±LUhL 


XI Hu — 


MB 16 — 


IBM 55 — 


PC 100 — 


MSX — 
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S'J^P ^ SUBEND 

M3, : SUBEND 

: gljro 77M.<?)®rb') ZTfrt. 

: i fznz t> 


-7n?-7J*&\ : nx N m<o (#) myn 

, Cf-yAtr, Afj UfcN 

10 PLOAD "SQR.IB/0" 

20 INPUT N 
30 PRINT "N= ,, 5N 
40 CALL SQR(N) 

50 END 


10 SUB SQR(Pl) 

20 IF P1<=0 THEN SUBEXIT 
30 FOR 1=1 TO PI 
40 PRINT REP$( »P1) 

50 NEXT I 
60 SUBEXIT 
70 SUBEND 


#*% : CALL, SUB, SUBEXIT 


^ ft m 

? 4 
N= 4 
#### 
nn 
nn 
nn 


y-y • x>k 


APL 

- 

SMC — 

TRSi 

- 

MZ35 • PC3 t mt. 

CPM 

- 

X 1 Hu — 

M223 

- 

MB1 6 — 

MZK 

- 

IBM55 — 

CBM 

- 

PC100 — 

PC 8 

- 

MSX — 

TRSn 

- 


PC3 

• Mt. 


IF 82 

- 


Is^jls 3 

- 


C180 



M243 

- 


MZB 

- 


BUB 

- 


FM 8 

— 


PSP 

- 


PC 88 

- 


N52 

- 


PC 6 

- 


MLT 

- 


HC 

- 


FPU 

- 



Ilj7°P ^ACDfciJP SUBEXIT 


Bit : SUBEXIT 

mm l WtS&Ltz CALL 1) £'6. 

#it : i (,'jlj ~f xj 7*7 J+tOiplzf't f0< Z £fi < X'£ Z>. 
2 SUBEND Z> 


Z7°n ^ A^lj : N X NtfAlCD ( + ) 

^A^, A^uycNlCO^T^If-r^. 

10 PLOAD "SQR.IB/O" 

20 INPUT N 
30 PRINT "N=" ?N 
40 CALL SOR(N) 

50 END 


ft IJ^D^^A 


m ft m 

10 SUB SQR(Pl) 


? 5 

20 IF P1<=0 THEN 

SUBEXIT 

N= 5 

30 FOR 1=1 TO PI 


+++++ 

40 PRINT REF’$ ( " + 1 

•,P1) 

+++++ 

50 NEXT I 


+++++ 

60 SUBEXIT 


+++++ 

70 SUBEND 


+++++ 


#BS ; CALL, SUB, SUBEND 


-III 


tyy • xww- 


APL — 

FP1 1 — 

TRSi — 

SMC — 

CPM — 

MZ35 • PC3 £ |hJ t . 

M223 — 

XI Hu — 

MZK — 

MB1 6 — 

CBM — 

IBM55 — 

PC8 — 

PC100 — 

TRSu — 

MSX — 

PC3 SUBEND 

• r.ijL. 


if8 2 — 

l/^iU3 

Cl 80 • A *#)!«. 

M243 — 

MZB — 

BUB — 

FM8 — 

PSP — 

PC88 — 

N52 — 

PC6 — 

MLT — 

HC — 
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«**»<«'•— Txnnzfte L usr 

M&Z : USR M ( A ) 

I I 

gtt&TSJ 

mm : SlgfcA^&o'C, J.— ■ -f-> £D^t/rfii-f . 

*1#® : 1 5I#[M (i, DEFUSR*-C^L^#^-(C^L, 0*^9i 

T'<r>*&$LX'hh . 

2 U S R 0 £:&■-£>. 


: eooo tf\&m<n*&m7f;-?& ) 

10 DEF USR2=&HE000 
20 FOR I=&HE000 TO &HE00C 
30 READ A* 

40 POKE I ,UAL< "&h " +A$) 

50 NEXT I 
60 A=USR2( 5) 

70 PRINT 
80 B=USR2( 1 0 ) 

90 END 

100 DATA eb, 1 a,47,3e , 2a , cd , 57 , 02 , 05 , c 2 , 05 , ©0 ,c9 

m 'if m 

mm* 

*****##*## 


0m : EXEC, DEPUSR 


ZL-+f 


APL USR (A) 

• mmumtts**, mi, 2<r>m. 
m**'*'. 


TRSi • |t]b. tzt' L, 

— 32768^5 A ^32768. 


CPM -tttmt. 


M223 CALL #n , Al, B— 
•0^n^31, 5l«k®*8flg-C#« 

• BASIC t ') > 

7 LTUrL^ BASIC ^f^LT 


MZK 

USR (AD) 

• AD til0ji#*fe£fcJi&16ii#ife 
T'^5t#i&T'&&. 

CBM 

• APL £ [5] b. 

PC8 


TRSn 

• TRS, £ [WJ b. 

PC3 

USR AD, A(,A(i^H&«X) 

• 5I3&A -e, MAD (lOil 


li & 16M) 


■?-> £D?irft-t. tzt* L, DU 

&T' f±£v\ 

IF82 

•*sct isjb. 

u-c;u 3 -*;fcfc[H]b. 

C180 — 

M243 

• M223 b |5] b. 

MZB 

• MZK il^b. 

BUB 

• #3t^:lH]b. 


FM8 


PSP •lai-l. ti L , 
EXEC #BS. 


PC88 • fnjl:. 


N52 — 


PC6 • FAEB FAEC & 

itUK, 

K U X <7)T fi 8 tf y h , iifi 8 t' 
•y h £ POKEtScT'## £ 

r% -3-—' TcoitMig-ro oaw 
PC6 u*n Co*th. 

• BASIC 7’n 1^7° 

O r-7 Al:f- 7 
tf&Wm-rn 7*7 AT' 741 #Jlfc£ 3 
— ;u1-£. USR (X) 


MLT • #ftW|g/U— -f- > £ BASIC 

To 7'7A?0Mi^^|»-t/y > 
M:ii< USR :fc7>f|fjt;4& 

f DEF SEG ti<‘]Z'W. 


HC 


FP1 1 

• £ |HJ b . 

SMC 

ANN M (A) 

• M (± DEF ANN *Tie^Lfc#-^ 

(-**!£ L, 0i'b9it^f,^. 

• fctefiatafciRlb. 

MZ35 

• PC3 t |HJ b . 

XIHu 

• *-*:t fflt. 

MB1 6 

• -^^ibiwjb. tfz. 

CALL:££ffl<,'& ~ U'H>. 

IBM55 

• MB16 <>: m b. 

PC 100 

• MB16 £isib. 


MSX • 


PEEK 


: peek ( M ) 

7 Vv x 

mm I Ju/E £ tl tz j* X. 'J £D ( 0 255 ^ X"<?)1iti) & afcts . 

if#® : i TKuxii, 0 65535 £ WISH. 

2 PEEK (i, POKE <7)i£<7)fij£ £1" & H4j$cT'& & . 

ra|= I CIF82) y^U 4 »{-iB:=l®»^iit>*wi< 7 >T^*^R>rco^i:-e, 

V RAM t &thtzh<n&y''n . / 4 > • / -t U l:-ot V RAM ffiEfc £ 

ntv'S. 


■7°P ^ ^ A0IJ : &H8000 #^^*0 &H8010 gLttiilCcfc^, 

Tcot 7 ^^— • =1 — 


10 

FOR I =&H80 0 0 

TO &H8010 

20 

POKE I ,&H4 i + 

•: 1 -&H 8000 > 

30 

NEXT I 


40 

FOR J=&H8000 

TO &H8010 

50 

LPRINT CHRT 

< PEEK <J)> 

60 

NEXT J 


70 

END 


* 

*t m 



ABCDEFGHI JKLMNOPQ 


#0S : POKE 
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tr— c? 


APL 


TRS 1 

• **£[5jb. 

CPM 

• *■* £ la] t . 

M 223 • **£|WH:. tztz fb, T 

K u <fc v'. 

MZK 


CBM 

• *:fc£!iJb. 

PC8 

• ^35C# h ” 

TRSn 

— 

PC 3 

• M223 t Wit. 

IF82 PEEK (M, 2) 

• SX: 0 • '<> 7 “J&Sg ( 2 $0<7> 

si&) ti, 1 7 i -c^isra. 

• y ^ 'J • y<> i; 

y >f > • ✓ <> > 

u • ✓<> WU'jsLfrhh t£,r 
K u X f± 32768 ^ 49151 & X'<F> 

mm. 

\s 

• £ IB] b . 

Cl 80 

- 

M 243 

• M223 t HfJ b . 

MZB 

• *-xt mt. 

BUB 

• «<>:IBJb. 

FM8 

• **£|B]b. 

PSP 


PC88 



N52 — 


PC6 


MLT -M<50ffiti, DEF SEG3: 
Z_ b 7 S > h 

< 7 ) * 7 -fe y h ftt^/J^i - . 


HC • *:£ t IWJ t . 


FP1 1 • M colSHKi, — 32769< 

M<65536. 


SMC -M223 tfflt. tzt* L, 

— 32769< M< 65536. 

VINP ( M ) 

• V RAM L £i~&. 


MZ35 

•M223 £l3]l:. ^2 fcr L , 

T Ku 7.{±384OO*‘^49151c7)ra0. 

XI Hu 


PEEK@ 

(&H2000) 

• VRAM <7)|*3'#<7>f 
(‘JI3&1* &H2000-&HFFFF). 

MB1 6 

• MLT £ IhJ b. 

IBM55 

• MLT tmt. 

PC 100 

• MLT t\ 5]b. 

MSX 

• tzti t. 


— 32769<M< 65536. 

VPEEK (N) 

• VRAM 
VDP (N) 

• vdp ( t : t * -r>r • -7“ 

o-t -y-^) u ^ 

L, 

BASE (N) 

• VDPf — ~7' )V<T)^<— x • T K X 
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*= i ) poke 


J& 5 & : POKE M, N 

7 K U 7. T'— * 

T—9 Z 

^Wi ^1 TKuxiiOi^ 65535 £ T'<50®H. 

2 -T-fli, 255 iT'C7).MH. 

3 POKE £7 &$]&!-, PEEK 

4 POKE £ PEEK £i, 7-fe>-T/Hr 

R?Vc7)-^-r;u— ^->£7)o— K-^, T«b>7^f^t7;u- -f > 
t L * ^tc ftj v > b t MW X'h h . 

5 # # ;A<^ &+'7 Yv^\jbh<r> 'CtKftb 


~f □ *f -7 A$lj : &H8000 ^Jtii7b'*o, &H8010 ffiltillC A t>'*b Q mX 
07^- • □— 


1 0 

FOR I=&H 8000 

TO &H 801 G 

20 

POKE I , &H 41 + 

( I-&H 8000 ) 

30 

NEXT I 


40 

FOR J=&H 800 G 

TO &H 8010 

50 

LPRINT CHRf- 

(PEEK < J ) > 

60 

NEXT J 


70 

END 


m 

& m 



ABCDEF 6 HI JKLMNOPQ 


#fis : PEEK 


/K-C 7 


APL 

« > Inj L . 

TRS i 

77£ruJb. 

CPM 

* ') it. 

^HC^InJb. /b L , 7 

0 65536 £ 

M223 

K u X, 

4:*£|nJb. fc ti L , 7 

MZK 

> |nj b . 

CBM 

4: * £ ImJ b . 

PC 8 

*£#!!«. 

TRSn - 


PC3 POKE M, Nl, N2 

• 7 KU *fi, 19712 /j* *-> 53247 it 
soWfl. 

• 7 — 9 £ Nl, N2, -£#0&L 
rt: t £, 7 Ku Xli M, M + l, 

M + 2, ■■■t&Z. 

IF 82 POKE M, N, 3 

• U • '<> ( 3 #yco«jl 

&M±, 1 7 

• 7 +: 'J • ✓<> t *, 

/ 4 > • '<> 9ii c HiSL t & ') , 7 
+: 'J • '<> 9 5 fft t aLfi i fo £> b £ , 7 
Ku *li 32768 i)' <o 49151 <7)$£RH. 


4: * t f"J b . 

Cl 80 - 


M243 

M223 t |uj b . 

MZB 

4: £ t |hj b . 

BUB 



FM8 

• « t fnj b . 

PSP 

PO 

• 4^£|i?Jb. tzf* L, 
M, N t ^w^«T. 

PC88 

• 4: A; £ fwj b . 

N52 

- 

PC6 


MLT • M <X>mt, DEF SEC* 

X^sL b tltz-b r / > h #lt!i7&‘ b 
cr>*-7-t ••/ h 

HC 

• t [n] b . 

FP1 1 • M <7)»1iM(±, — 32769 < 

M< 65536. 

SMC 

• M223 £[njb. tzt* L, 


-32769<M< 65536. 

VOUT M, N 

• V RAM Cf '—7Z\\'i1r?Z>. 


MZ35 • 7 -t 'J • 7 K U 7.fi 
38400 ^ 49151 £ *e<7>«£RH. 


XI Hu POKE M, Nl, N2, — 

• mwt^sct wit. 

• r'— 9 £ Nl, N2, ••• 1ML*: 

t T KU *li M, M + l, M + 
2 , -ii-4. 

POKE® M, Nl, N2 — 

• VRAM (7 Ku *l± 

&H2000-&HFFFF). 


MB1 6 

• MLT 

£ fa b . 

IBM55 

• MLT 

£|s]b. 

PC 100 

• MLT 

tmt. 


MSX • 7:£<bliiJb. Af L , 
— 32769<M< 65536. 


i) POKE 


VPOKE (N) 

• VRAM Ui tLter-fzmz&ts. 
VDP (N) 

• VDP w x * 

&• £ fr ■? . 

BASE (N) 

• VDP t — ~T )V<r>^< — 7^ • T Ki/X 
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7 K-C7 
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Yi&omm fre 


te& : FRE ( A ) 

Y%k*5-z_hm®L. 

$$Wl : i 5 -. 

2 BASIC <7)^o*rv^*v^y^e h 

&£#x.£. 

3 Ft 
%:*=}■ Z-h . 

4 »), IsEffl L fc 'I <?>;*: 

£ Zfrfrfr&WC, jz£&S j e l ) A^j't' 


^Q^7Afll : BACIC 

10 LPRINT FRE (5) 

20 LPRINT FRE ( "F" ) 
30 ENEi 


m ff m 

20394 

300 


: 


37U— 


APL • tzt' L, 

»3<7>*M6liarV'. 


TRSi 

• APL £ ISJL. 

CPM 


M223 • K"C SIZE *>'[§] t 

Sa^tJ. 5l»liirv'. 

MZK 

• M223 tffl t. 

CBM 

• APL £ IWJL. 

PC 8 


TRSii 

• *lc£ fflt. 

PC3 STATUS ( 2 ) 

. ja .-- yf . jr. IJ 7<7)5fM£ffl'<4 b $C 
zmirs. 

IF 82 • APL £\s\t. tzfz TL, A 

** "" CO £ £ / -t >) <7)± 

$ZZ$-z.Z>. 

u^;u 3 

• 4 : ^; £\$]t. 

C180 

- 

M243 

• M223 tmt. 

MZB 

• M223 £{s]t. 

BUB 

•*-*:£ fflt. 

FM 8 

* ** £ (W) t . 

PSP 

• APL £\3]t. 


PC88 • ^DcfclHll:. fcfcfL, 51 
& A *>* 0 ^ (i*, *1*83 

o^i), is «fc V x 

b »; > Tvmitt 
fg«<7)0|»)<7)^<>f b*fc£^U 


lirfetdT, 5fe«ffl-f*x b«Ht, 
oi'), •7°o^'-7A*T 3 r^b$: 
b$t 

2tekl£, 

**£5M£fflT*x b«*ft<7>fD<7v< 

4 b*fc«r*^*T*. 


N52 

• tttmt. 

PC6 

• ^^^In]L. 

MLT 

• tt£fflt. 


HC STAT ALL 

• RAM 7 T 4" >V<n±£ £ £ 
MEMSETOTKu^, sfcttffl-f 
^fXF Mls£<7);*c£ £ £3^. 

• ALL <^>jXb *) C7n /7 /*• J. ij 
TMl~5UtU>L 
TCMMl'C^^^D 7=7 l*<n 

• wflKMigLt, RAM/R0M^°7 

?<7)5fe^fflWfe<7>;*:£ $ £*rt, 
PACF 


fpi i • t. 


SMC • A tf&fcnT— 9 , £ fz 

(±, 'gn&Z -X^\\\^)^(n 

it 

zkifcm'Of b&£JML, mj<-t>v- 
X b IJ > r<7)0#li, 

b&£iM1-. 


MZ35 • PC3 £fnj L. 


XIHu • APL £ 1»] L. &*&, 
SIZE 't'k[5jb?&g£1-&. 


MB16 • ArtLfc^^irSN 

b &£&*** £I*J 
ii#(c#$j4*t'-?£##jL, — & 
$ n fc -e $.* ^ w& £ 


tmnmT* fre 


7U- 


IBM55 

• MB16 tWlt. 

PC100 

• MB16 tWlt. 

MSX 

• tWlt. 
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VARPTR 


Jfcit : VARPTR ( A ) 

mm 

I 1 b*MiiL£TtA£ KT ^'irttKtf-i-7 — 

2 ttiLtlim #*»*, ttftttfe, v 

r T 

3 B§&fi&fi32767^ ^ -32768 £ T'SOiliOT. 

4 ili^^7 T ^H:‘#J')# 

5 T -t > -r IJ wl§<wr;u - * *#£*, >£& £ fc li &l?ij <r> 

#Jt&£i!8P<6 t #{c^i-9 t\M\\X'h&. 

I "±?y>h 


~7 u *? 7Aj5 »J : A, B$ 

10 A=22 - 5 
20 B*="5> C" 

30 PRINT "ADDRESS OF ’A^ "5 VARPTR (A) 
40 PRINT "ADDRESS OF •’ B$ ’ = " ’ VARPTR (B^) 
50 END 


m n m 

ADDRESS OF '* A ’ = -32636 

ADDRESS OF " BS ” = -32629 


#$! : OPEN 


AUP7JL/ • 7f\^ys> 


APL — 


TRSi -A^cilnJb. A: Af L , ^ 

«[UfiiyiJt 7 T 4 

CPM 


M223 

- 

MZK 

- 

CBM 

- 

PC 8 

• A£#h«. 

TRSn 

• TRSi i|H]b. 

PC3 

- 

IF 82 

• A £ £ |HJ t . 

\s *<.)Vs 

• *-%£mt. 

Cl 80 -mm* L. A AT L , 

VAR PTR% ( A ) *C'|mJ t&co Z £ fi* 
"T. ra&ttfi 2 77^f 

'u*-*£**fc* 

M243 

- 

MZB 

- 

BUB 

• A £ £ |hj b . 

FM 8 

ti:7 

• AAb, >£ 

PSP • & ^ £• L . A A L , ADR 

(A) -ClWHfcoc £ amr. 

PC 88 

• A £ b l»J b . 

N52 

- 


PC6 — 


MLT • VARPTR h 

&mz, 0~65535O$,m#:'C% 
DEF SEG fJMii 

cn-t 7/> h 
v h fift’CTTN't'. 

• 7 T 4 £ #(±, 

VARPTR (#5) t#;. 

^-<7)7 T T Mzmxt&rt t^tix 

^ 6 . 7 7 -f 


hc • rnj b . 


fpi i ^a, ^ 

• wi'iu»jaiL'C, i'km^&co 
b VAR LIST 

6 . 


SMC 

• 4 :* ifsJb. 

MZ35 

— 

XI Hu 

•-*•££ fflt. 

STRPTR 

MB1 6 

• A:££|nJb. 

IBM55 

•MLT£[S]b. 

T K u x<7)£' j- 'f/J jX; £■ ju -f 

VARPTR $ |38«’a<*£. 

PC 100 

•TFT 

mtlX VARPTR $ t>< 

<£> h . 


MSX 

• 4^ 35c i: fSJ b . 


m«IB EXEC 


: EXEC &H7000 

I I 

ttinftnj 

2 fLfc i £ li, Mut-^fr$ flfc LOADM u -v 

> p(7)AP#J Hi, £ fclilfCittfc 7 ) EXEC K*>IS8«&#Jlbd' 

‘o §HTr1" 6 . 


7° □ *? “7 A#lj : -^U • U— K 40 16 ~5Pi6 <7)#^£-p|J 

10 CLEAR 100, ?<H6FFF 
20 FOR I=S<H8000 TO S<H8025 
30 READ A* 

40 POKE I , VAL ( "&H"+A$> 

50 NEXT I 
60 EXEC &H8000 

70 DATA 86, 20, B7, 80, 30, 86, 3F, B7 
80 DATA 80 , 32 , CE , FF , C2 , 7C , 80 , 32 
90 DATA B6, 80, 32, BD, ED, 71,7a, 80 
1 00 DATA 30 , 27 , 02 , 20 , ED , 86 , OA , BD 
110 DATA ED, 7 1,39, 00, 00, 00 
120 END 

m fir m 

8ABCDEFGH I JKLMNOPQRSTUVW X Y Z C ¥ 3 


#HS ; USR, LOADM 
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X^tZ^LL— S 


APL CALL 1700 

• M£(i*££Mb. 


TRS i — 


CPM CALL A (Al, A2) 

• ft; ii/i '$z %t (i , lifj if]T Ku £ >j ; 

i". tits L, zn&Wi f&WX'h 

o *C(±i: ^&*v\ 


M223 CALL #1, Al, A2, Bl $ 

• MMIh7 o/ 7AI:, 0 - 31 eo # 

£ olt, 3 <7> o 

r=7 

• Ol&li, — PW7o/9^ti:8 

6 . 


MZK — 


CBM SYS A 
• Miibd ^ & L M L . 


PC 8 — 


TRS. i — 


PC3 — 


IF 82 • CPM > Mb. tits L, *JI 
m cn ij ilJ 

6. 


U~UU: { • £#!!«. 


Cl 80 — 


M243 • M223 t M b . 


MZB — 


BUB — 


FM 8 • & L M b . 


PSP • CPM > Mb. tits b, I4J 
16Jlli^7)^fn , i; A 'C'-fn >L 

1-6. 


PC88 

• CPM ^ Mb. fc /b b , 01 

^(11- 

>L T £ 

6 


N52 


PC6 

• T KP &*v'. 

MLT 

•CPM b Mb. ifc, *7 

•v 3|*3f±«fe 'i b r L J: V'. 

• MrJ4f?T 

K u BEF SEG KT 

Jh/E b 

tz-tr / > h Ml- 6 

t7-t 

•y h fli'i X:H- Z_ 6 . 

HC 

• L M b . 

FP1 1 

GO <K:H7000 

• -temm* b tits t±, pc 

U -7 7. 

9 M 7) ffrlilirt* h> ^frl" 6 . 

CALL 

&H7000, 0, 1, 2, 3 


/u — -F > £ li-T- 1>* Mi 1~ . RET 


A <L6. 


, 7FUX, OI&A, HL, 

BE, BC coliin. 



? £;lfi 

b “t 01 Sc £*&•*£■ 6. 

SMC 

• CPM iMb. fcfcTL, 

0!3&filO1Wi t\ 

MZ35 

- 

X 1 Hu 

• APL tMb. 

MB1 6 

•MLT >Mb. 4* Lb 01 

&(*•* 

T <r> ,r i'l Ttt>L T- * 

bt)'\ 



IBM55 *MB16LMb. 


- 120 


1^7-tzJFZL-h 


□ 9 *7 l*<T>Wn 


PC100 -CPM^lHlb. fzt* L, 

A (±3f7-b-y 


MSX — 


EXEC 


ftKIg <7)fe - y to - K MSAVE, MLOAD 


Jfcit : Q MSAVE “ APILE ” , & 7000, 2048 
(g) MLOAD “BPILE”, &7000, 1024 


I (D$M#i§7 T 4 ;u£, -?T 4 3csl#ite, :*;£ $ solUITl^L 

■t, b. 

x7±<nmmm~7T 4 r 4 
L X , / fe 'J ^Ifc^ iX ti* . 

• 1 (a) “AFILE" <r>m^ (*) * “AFILE” 

(b)$H$fg->f70u— ■ -f- > £ ^ £ 7* 4 * ?±M$#1"£<7>b:fg*iJ-e 

2 MLOAD t , MSAVE 

$ ft fc 7fcsl#*&, ft £ £ b &* & . 


Z 7 °n *f =7 J*m • “AFILE” ff>$&WcSg^D ^ A • 

fY^^D-KU basic ^n^AW^;b 

— ^><b UT^Tt§. 

10 MLOAD "AFILE" ? &8000 ? 1024 
20 IJSR £8000 
30 END 
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xz_^ • iz— y, • □— k 


APL 

• cli -eHfr«T. 

TRSi 

• cli T'Uff tr. 

CPM 

• CLI X^'iir «T. 

M223 • DOS fe— VXT'<"y tT^c 

tvxbh. 

MZK 

- 

CBM 

- 

PC 8 

- 

TRSi, 

• CLI -Coffer. 

PC3 


IF 82 BSAVE “2 : AFILE”, 

&H8000, &H81FF, &H8010 
BLOAD “2 : AFILE”, &H2000 

L^JUa SAVEM “CAS1 : AFILE”, 
&H8000, &H8FFF, &H8000 
LOADM “CAS1 : AFILE”, 
&H8000 

• mm^ictmt. 

ci 8 o 

— 

M243 

• M223 ^ la] L. 

MZB 

- 

BUB 

- 

FM 8 

SAVEM “1 : AFILE”, 


&H8000, &H8FFF, &H8000 
LOADM “2 : BFILE”, &H2000, 

R 

• mm * *1 t IsJ t . &H2000(± Hr 
7 fe "/ h lit. 


PSP BSAVE “FDl”, 
“AFILE”, 1024, 2047, 1024 
BLOAD “FD2”, “AFILE” 

• mm^xt iHjt. 


PC88 BSAVE “1 : AFILE”, 
&HE000, &H02FF 
BLOAD “2 : BFILE”, &H2000, 

R 

• mm ISJ t . &H2000(i Hr 

7 -fey hit. 


N52 


PC6 BLOAD “1 : AFILE”, 
&HD00 

BSAVE “2 : BFILE”, &HD00, 
&H200 

■ mm^&tmt. tzts l , 

<ni (a) t 2 


MLT BSAVE “AFILE", *7 
fe -y h , U > 7*. 

• Hr 7 -fe y h litli, DEF 

S EG 4CX-5- z.totl tz * 7 fe 

•y h SrflD# LT#*. ^ft&. 

• *7 fey HflKi 0 -65535. 

• u > 77 .( 7 ) ftli 0 -65535. 
BLOAD “BFILE”, * 7 fe -y h 

• *7fe>y h (itwfr«T) 

J&ft, fe C7) 7 “D/7Ali «T 


HC LOADM “B : AFILE”, 
&7000 

• &7000;i;*7fe y h te-c, SAVE 

M -d&5e L $ ft. 

a— Kt"6 . ft 

• LOADM X4$T'<4 “COM : " 
( i] fe y h ) JIt aE X f* ti ^ ' . 

SAVEM “AFILE”, — -, V 

• SAVEM b LOADM £ fe 

— ~TX%h. Z<7)9$, -?4 - 
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— Z7 t P— K MSAVE, MLOAD 


CRC -f-i -y ffrZtlZ. 


FP1 1 SAVEM “0 : AFILE”, 
&H8000, &H8100, &H8020 

• mfcmii T '<4 X ~7 t 4 si'?], 
JctiiT K u X, **7 TKi/X, * 
? — b • T Ku X (&»&«]■). 

LOADM “0 : A FILE”, R 
■ R 

• MA&t i~7 T 4 tUt, SAVEM X 
X*&tJ2titz'<4 4- 

UPJ4&. 


SMC LINK “DSK : AFILE” 

• T 4 tv 
£. 7 7^^^U, 

±.<50 >j 'visfeA&tf. 

• SAVE, LOAD, CSAVE, 
CLOAD T BASIC t |WJH#(3 
± — -T, o — KT'£ &. 


t7*t7 h fftte 0-65535. 
^ 1 -65535. 


IBM55 

• MB16 £|s]b. 

PC 100 

• pcss tmt. 

MSX 

■ BSAVE “T'<4 *£ : 

7? 7 i\,& ” , Tty/i^iiii, ^7# 

■Hii, *fTimtt#Jifa 

BLOAD 

“ T'<4 : -7 r 4 t\. 

£ ”, 

R, T 7-fe y h 


£ Hff mj6&#itk itl). 

R £: Itf /E"t" -Si:, o — K L /,; «£> <!: 
%'n \n\t& #It!i J: 0 Hfrl" & . 
t7-t 7 ^^tSL -ftyft# 

life Ct 7 -b y h £ 7 )fd£^(t /JU £ A: & 
ii!i(c u— K£*l&. 


MZ35 • ^Jfcirfnjb. fc/'L, 1# 

©1 co(a)(ifil!i.^:v^. 


X 1 Hu LOAD ’’TEST”, 
&HA000, R 

• R £#?>h'T h t , ibc^-jA^^T \k 

■& . 

•7F^?:l»St^, SAVEM 
T'#r>£ U:7 Fu^I:d-K$l 
£. 

SAVEM “ TEST1 ” , &H7800, 
&H9EFF, &H9010 

. / — ? (i, -5ty/iT K U X, 

77K^, h-7Ku*. 

• X ? — b • T K u 7. & & £ , 

-fcyliT K u t, frWtig. $ * i & . 


MB1 6 BSAVE “ A : AFILE ” , 
TV-t-yh, 

BLOAD “ A : BFILE ” , t7-fe 

y h 

• T 7 -b -/ b fitfi [&m<n DEF SEC 


X<L • M—7, XAi • □— K 



WM.m=Z - K ^(DWn MON 


Tfcxfc : MON 

y&M, : ttttHHe- KU» mz&ir. 

! 1 BASIC $fcfr*-K**fc, 

2 BASIC -To 

3 (CTL) -fB] ~C, BASIC — K f- 1> Z £ frX' 2> . 

4 £ is *) . 


Sxxxx 

tfr5b $n/:TKux(7)i*r# /js, r A J '# ^ ib 
X ^ — h • T K ^ X, X7 K • T FWX 

Dxxxx, yyyy 

(HJc7) y 

x ^ — b • T K u X, x> F -TKWX 

Wxxxx, yyyy 

fiSJX) / *J cr > T — 7“-n.<7)# § 

L 

t — v 0 ^* t^> <7)B^^ M*. b r'— ^ i: , ^ -t >1 

LV 

r A i'#-< >j 7 r 4 

Gxxxx 

•fn /b $ H 7b T K u X^i/ -v > 7° 

TM 

/ 'j <7)f x b 


■m Ft m : KICUT, K 

UT BASICS— KlCtcl:'-^. 

rno n 

*L 

# 5 < 

Okl 


#he : 
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APL • RESET C080 t LX, 

( CTRL ) -[B) £• Wi" (Tv-r^u- 
V V b • ✓<— X 3 > ). 


TRS i CM I) “ D ’’ 

.^(i, *££ Mb. ifc, 

SYSTEM t-T^> 
b'-f 2 > L 2 ). 


CPM • i‘S ^ (i 4* v ' . tz t* L , M 

tzt£irz> i-(i, basic ^e — 

bVj‘*^(+Tl$M,ift^- KCtR 


M223 *,^^(±4*^. f" 

^ < ••/ *r £ ft 4 <b £ Ft 

T£ 2 > . 


MZK BYE 

• *££Mb. fcfc'b. 


CBM SYS54386 
•4:£>l»Jb. tzt' L, ^Pft4(i, 

M : ^ -t IJ ^/Tn X : BASIC ^<7) 
ij ^ — > R: W :7 X ;? L : 16 
il£-r— * • o — K G : -ffr>iiT K u 
7. 'V : J A* > •7' S : 16 jlllT'— 9 • -fe 
— T 


PC8 • ^ >C#!!(f. 


TRSn — 


PC3 


IF8- — 


U^;U:, • *££Mb. W 

ft 4 (±, M : y -t >J C» : 

tffteT K U^i:y>>7 1 R : U X 

x '£•«£ n : ffiVET K 

u xa> C 64 ' < 4 b -^->i'x ( STOP ) , 
(CTRL) -(Cl ( CTRL ) -[P] * Z 
T* BASIC U ? — >1-&. 


C180 — 


M243 • M223 it. 


MZB • £ M b . tzt' L, 

BASIC ^7) >j 9 — >li ( J ) £ 


BUB — 


FM8 • *££Mb. 

^(iu-<;u 3 £ M b , tz t' l, 

( STOP ) , ( CTRL ) -[C], ( CTRL) 
(X)^ — BASIC IZ b t'h. 


PSP * 4 :■£ £ IhJ b . fc/'L, W 
ft 4 (i, M ; y ‘J -J : 

tfifcT K U X(~ x -v > *7- R: l/y' 
X *H£ B : BASIC 

^(7) 'j 9 — >. 


PC88 • ^ > |hJ b . A5 b , ^ 

-7> K (i&J 3 ti'i (- 
(HELP) * — £#-$*£=»-*> K 
cntiimfr') x h £K2>. 


N52 


PC6 


MLT — 


HC • W&i 4 *C, S, D, W (i 
(Hjb. ii*‘ 

( ’ Ki ^ <r> uiT^frJk h . 

• ^f-ft 3 (±, ® <7)^TTic(tm^2>. 


FP1 1 • BASIC ^e— K U i) ¥ h 

(zfi, BA37> 

• ^pft4 fi, DM : / *1 'J 
CM : 7 'J bjW^Ui, MM : / 

^ ') bJ'rfferis, go : rn/7^ 

HtT, CR : U *7 7, 

ST : T — 7 D ^-t — 7', LT : X 
— - 7 fr C?a— K. 
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— F^comT 


SMC tzt* L, 

SYSTEM T DOS t-KCLt, 

R!«*;i **<■« *. 


MZ35 BYE 

• FDOS $*lz DEBUG K 

hh<r>X\ ^l£fflV'T$SM,1§<7) 
J r*' < -/ fax. 6 . 


XI Hu - fc-JCtmt. BASICS 

cn 'J ? — >l± R. 

• p : 7° i; > ? • x 'f y d : r 

> 7“, M : / -t •) • -fe y h , F : 
7? 'f > b\ G : mif, T : 

s : t-t -y ~7\ l : 

•y M* b o — K, V : < ') 7 r ^ . 


MB1 6 tzt*L, 

MS-DOS DEBUG =>-*>> K 
tj<b&cr>X\ 

<r>T''< y 9 frtrz. 6. 


IBM55 

• MB16 tlWIb. 

PC 100 

• SMC t fH]b. 

MSX 

- 


MON 


=£-S>— 



* — 7}i— Y1J'h<D\tl INPUT 


MjH : INPUT “ " ; A, E$ 


7° o > 7° b :£ 




u A b 


: 3 .— ,-k— 

i&ffli: 1 LINE INPUT -Xtlt^'i, &r-9<f>m3li ( , ), 

— A -CE-tfJ >) , £/2A*jB#(- (?) &&&. 

2 a ') * h suut- 

3 yD>y^mse, ro>-/F4o*)ti: (?)£'& 
<§> . 

4 >J x b (?&T-o 

££#&*) AtJ ZthhT— 9<f>^\z — £ScL 


y □ > 7 " ^ a#ij : ^mcDum^nw^-^. 


1 0 

INPUT 

" ?f " ;A1 

20 

I NPUT 

" 33 " ;A2 

30 

PRINT 

"/•>t4=" ; A 1 *A2 

40 

END 


* 

fr 



Qf ? 5 
33 ? 5 

25 


#HS ; LINE INPUT, INPUT #n 
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-fyzf'yh 


APL • A'£ tWit. tztl L, A 
o>t p b^ftltA:^, (?)** 


TRSi • #3HS(i ( . ) T'E^J*. 
. — A, aay, 7 >"7 £ t/ 

A b >J > ^"C7)i#^(±, Ah 1 ) 

> ?-£ ( ” ) x-mts. 


cpm • A £ t m t . 


M223 INPUT "9t'\ A, E$ 

• -fa y-f h 

■ ro^rhi^u^ & 

P«TO ( ? ) (i &&£'', fa>-7°V 

tiara 


MZK 

• ( ? ) 

CBM 

• A tj X" £ h T'— 9 hi It Ai 

A80£ 

'/**. 

PC8 

• *:£#8«. 

TRS 11 

• A * t TnJ t . 

PC3 

INPUT “* T” ; A, B ; 

“ 3 7 ” 

, C 


-fay f h *{±®»&"I. 

E-t# ») (2 -te ~ 7 o > £ ffl ^ £ t , 

t mm ( 20 *^) 


IF 82 • IN PUT : " 7 -f” : A £ fz 
It. INPUT a”, A t't «I. 

. -ro>7°h’3ic(±tti I 'fh«r. 

• 7 0 o > 7° b left' 2b o *C, %<f>'l£.f> 
E 9J ') 7 > ~^X'2b h tyjft, ( ? ) 


u-<;u 3 INPUT “ ^ -f " ; A 
INPUT " 9 f'\ A 

• -/ o > 7" h :£(i 

• ») iSL "T. 


.(,)■*(:) L'JIHm- ( ” ) *CH8 
Vztiz I ‘) Atj «T. 


C180 

INPUT : E$ 

• 7° a 

>V”h-3t(±W»&nr. 

• *<7>ffef± M223 t f«] L. 

M243 

• M223 £Wit. 

MZB 

• MZK ^ Ip] L. 

BUB 

• ftJfigti ( • ) T'E^J^. 

FM8 

• IN PUT “ 9 f". A, E $ 

“C& «T. 

• A 0 

>rM5c(±W»&«X. 

• 7°o 

> -r h > -^< 7 )hgrf^, 

( ? ) 

liHifrv'. 

PSP 

• 7“ 0 > 7" h 3t L ^2 

m t 

•, ( ? )(±,T.4-V'. 

•TAB, WIDUCSSck^nT. 

• 255£z'4 : £ T'A* "T. 

PC88 

• IF 82 twit. 

N52 

• twit. 

PC6 

■ ^ twit. 

MLT 

•tttWit. 

HC 



FP1 1 

• INPUT m 9’T”* A tt 

nr. 

^ ( ? ) (irtJ&'A. 

• #JgS(i7>-7 ( , ) 'CE-SJ&. 

. <7) 4> (2 n > -t* (,) £#£ 

4-^ 

'^P5J»<7) ( ” ) i±® b&T'^ 

^>. 



SMC • IF 82 2: IW1L. fcfcfU 
INPUT ; “ 9 -f" ; A 
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MZ35 - MZK ilBjt. tfz, KEY, 
KEYIN 
Cii’TIJ. 


X 1 Hu 

*t” h . 

• Tilsit;. i-Ji, U ? 

* -*Tlt /' i Bljsoft S- <*# 

MB1 6 

• IF 82 fcRIt. ifc-fe a 3 

o> ( 

; ) 3&< INPUT <7)f <-f£(c 

y — v ;Hif- 9 A 



IBM55 

• MB16 ^[WJb. 

PC 100 

• MB16 IhJ L:. 

MSX 

• |Hl t. 


INPUT 


-I'yy^b 


^AftX LINE INPUT 

: LINE INPUT “ 77 ” ; E$ 


I I 


7° u > 7° b -X 

: i input :££!%£>). ( , ), 51 mt % ( ’ ) &• 

t'h^ tlX^ 6. 

2 &fr ( RETURN ) -C'lffcOE^*) 

3 1 ff tiMJz 255 ’Sc.^f-. 

4 A*H$U ( ? ) (±jBffiuai$:v\ 

5 x? ij— > • xf-( »), A;frl %L: #-V;ufc , ®i 

ffiJiU ^ttc ZilX't'h *^?I]C0^T(C L , ( RETURN ) =*r — £ 
W1"~ tCJ: ot^eofr £ AJjX'Z h. 

6 r'-^x>g^') -f-i -y ? £ A*1~& £ £, £tzl±T—f 

h. 

rn|E • 1 >^- ^ 70 £ fcli 7 o r? j*<r>sHfrtz t l * 9 EJJU 

* ii J: LM&tJlfctr-i /7Z,. 


I “list, 10”, *zKX) U ” E$ 1C 

10 LINE INPUT "UTlA" ? " ; ET 
20 IF E£="T90" THEN END 
30 PRINT E* 

40 GOTO 10 


m s m 

37:*" ?list.. 10 
list, 10 
371*" ?*9V 


#0B : LINE INPUT #n, INPUT 


-fyy'yh 


APL — 


TRSi • A £ <!: InJ b . 


CPM LINE INPUT ; “ 9 T " ; 

E $ 

• 7”o>rht, ; ii iW«T. 

• 1 fr(iili'A254:&: f ? : . 


M223 INPUT LINE “ ^ 7*”, E$ 
. 7°o > 7° b 

• 255. 

• E $ fi DIM L & If tll£ 10 >C 

• ftp® 5 


MZK 

? i) 

<r> z. 

• L. fcfc'L, -t — 

.-tf7';u-^> OETL xmm 
t 

CBM 

- 

PC8 • A£#!!U. 

. (STOP) * — £ |I|| L T T 

|*Jr L , £tz C CONT ) A- — T'lffl 
1- & > , £i)& l x> 

Atj (- 4* & . 

TRSu 

• *££ InJL. 

PC3 

— 

IF82 

•AiltlnJL. fcfcfU 


LINE INPUT “^f"; E$ ; i 
nT. .r<50£ 

MJcAtJ-jC-r-Wi 254. 


*’'£ JU3 

• 4; * t HO t . tzt* L, 

LINE 

INPUT " ?t“. E$ t"!. 

C180 

LINPUT E$ 

• 7° a > 


M243 

• M223 t fflt. 


MZB 

- 

BUB 

■ TnJL. 

FM8 

• <h In] L . 


PSP LINPUT “?t”; TAB 
(10), E $ 

. 7°u>7°h:fc, TAB, WIDffl&ti 


255. fc*5L, 

WID BU«c-r*A^^Tfig*^«C 

-c£*. 


PC88 

• [SJL. 

N52 

• t ISJ t . 

PC6 

- 

MLT 

• ific A 254 £'/-. 

HC 

• A i; t rnj L . 

FP1 1 

LINE INPUT “?t" : 

E $ , 

n 


L 255. 


SMC 

INPUT/L "^T” : E $ 

• ( : ) »)(-(,) % wmi-z 

Li-V'. 

MZ35 

- 

XI Hu 

• 4=*tl5JU. tcii. ( ; ) 

Ol^h') C ( , ) TL J: 

• LINPUT Ml f A & . 

MB1 6 

• mt. tzti l. 

LINE 

; “ 9 T ” ; E $ ; {> fi' i £ . 

wX) t £ (iiJfcff L 


IBM55 -CPMirlHlL. tzfc L, 
INPUT MU -fe = 7 o > & 
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-i'yy'yh 


b-x mu line input 




PC100 *MB16^PJt. 


MSX 


• mt. 


m INKEYS 


Mit : INKEY$ 

! * — X— Vfrticnxtiz 1 tfittiir 6 . 

4 #®: 1 ^T — fi'WZilh £ *— £ £ li, 

t*;u • 7s M) > r l, £W*|«*feT* 6 . 

2 UiU ffllzl±$k >J 

3 (STOP) (CTRL) 

4 M'&li fULt Mf t ( fflj E $ = INKEY $ ). 

EB |E • . * h 'J Ji£j!rO <MCY-Q\. T&JJiT&. 4i5S£#fc*>*T*0IIi - *> 

* ttflSi-fco-O'*. 


^a^ 7 Afl| : ?k— K^ e><7> 

A/j^niJ't : -t^>. 


1 0 A*= I NKEY* : I F A*= " " THEN 1 0 
20 LPRINT "KEY INPUT* " ;A* 

30 I F A*= " E " THEN LPR I NT " END " : END 
40 GOTO 10 


m s m 

KEY I NPUT= L 
KEY INPUT* o 
KEY INPUT* V 
KEY INPUT* e 
KEY INPUT* E 
END 


#fiS : INPUTS 
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-<y • Jr— $ 


APL GET E $ 

• t £, 0 — 9 ^ 

ZWt t3-^7— Ci-li. 


3Ut f± 1 *•/*- Art T & i X~'<k<?) x 
~t — }• / > h 


TRSi 

• 4:-* > rsj L . 

CPM 

- 

M223 

— 

MZK 

• APL £ |hJL. 

CBM 

• APL tlHjb. 

PC 8 

. A&#M. 

TRSu 

• A £ t |SJ L . 

PC3 KEY KS 

• 3c — ,-k— K*‘G 1 X'?- ES U Art 
T&. 

• E S £ gfwftT 1) £ U H'J <r> A rt A- — 
£ 7 'J Tts. 

IF 82 

• fsj t . 

ua;u 3 • A A; > |«Tl L: . 

C180 

- 

M243 

- 

MZB 

• APL fclsjb. 

BUB 

■ 4< Xt |u-J b . 

FM 8 


PSP KINS 

• *-Art*>* 

£ £ NULL 7 7 


NULL [?t!&T'ffc*Jf3tfl4. 


PC88 


N52 

• *x 1 1§ j b . 

PC6 

• ** t isj b . 

MLT 


HC 

• *itwb. 

FP1 1 

• ^^iHjb. 


SMC INKEYS (N) 


N = o fr i ti ml i ti: W 2 ti 

-j-ju • 7. h ij > 

N = 1 c7)H# IN KEYS SfcfrfcattJ 
— <7)T"— * £&1~. 
N = 2 £ l»J b . 

N c r )fn'Ai$: iSwft't' £> £ 0 £Ih*e L 


MZ35 • PC3 tfflb. 


XI Hu INKEYS (N) 

• N — 7&*JI|i$;fLfc A>* 

ti *£>'£: It fKdfrtA' 

• x h u > r. 

• N=0<7>£ j&<ff$*lfcfclHIWr 

4 - < WSfi-CV'&ttK 

• a h ij > r. 

. N=1 <?)£ £ h — V/uStT'O > 7 L 

• N = 2 § 3c — ,-tC— Yfrio<F>Kt\ 

SUBCPU (F> 1 

'<4 h soffifft £-£*.&. 


MB16 • fcX£ In] b. 


IBM55 • fcX £ I»J b . tzt' L , 

K + l-WSfifc*-*, 
BREAK, PAUSE, COPY, <J 
-fe y 


+ INKEY$ 


O • dp— $ 


PC100 • fCTL) - [C] t ( STOP ) 

KT'& < , *-X- K • '<>y 
7 T -C& & . 


msx -ttt mt. 


INPUTS 


: INPUT$ ( Ml, #M2 ) 

I I 

i i 

^B&nl 

I ftM2(7)7T'f^, £ — K (M 2 ^H&P#) £>^MlflS|cO 

: i 3?- — tf— A^LAi^fi CRTfc^^^i 

4-v\ 

2 Z^rngtZ^W-fZ*- ( fCTlD -fCl £tzlt (STOP) ) UW 

\tlZtlb. 

3 Ml <JO.TiMfi, 0^M1^255 T, UV] 0 tf?X h>tlb. 

4 Ml £, (6g) A 

5 INPUT ^ LINE INPUT ^CTTii, At/-t b Z £ CT>X'£ 
etcffJc&Z £' i> AjjfrHjmx*) bnxwmxh b . 


yp^'^A^lJ : INP I^^CcL INPUT$|^^c^ia<^^i±ycR A*3C 

U£$?-T ~ 4 ~ *£). 

10 LPRINT" IF LAST TYPE ’5)’ KEY THEN END" 

20 FOR 1=4 TO 10 STEP2 
30 IF INP (2) =254 THEN END 
40 AS= INPUTS ( I ) 

50 LPRINT AS 
60 NEXT I 


m if m 

IF LAST TYPE ’ SP KEY THEN END 

TAKE 

CHAN ! 0 


#0B ; INPUT, line input 
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-Yyy'yhS 


APL GET A $ 


TRS, 

- 

CPM 

• £ |HJ t . 

M223 -S*!5£* L. fcfcfb, A— 

4<— K<7) 1 ^c^-<7)^<7) AtJii, 
INPUT #0, E $ . 

MZK 

mm. 

•KSiL. tzt'L. INP 

CBM 

- 

PC 8 

• m^c^m. 

TRSn 

• «:£lt]b. 

PC3 

- 

IF 82 

• A££|nJb. 

U^JUs • P^C£ |WJ t. tzt* L, 7 
7 I ^#-^''0 £ i, A- — ?K 

- v K+ixhb. 

Cl 80 

- 

M243 

• M223 £|sj b. 

MZB 

• MZK £mt. 

BUB 


FM 8 

ti b . 

• (CTL)-(C] Tt A* $ 

PSP 

— 

PC 88 

• A^rHjL. 


N52 • 7rT /H± > — 'ryy^r 

*o &* ^ ' . 


•Mllil £*^255 £t:'. 

PC 6 

— 


MLT 

• tttwit. 


HC 

■«f®2, 3, 

4 (iT^T. 

FP1 1 

• ( BREAK ) 

*-£ 


( STOP ) A- — 

— CQAtlfrX ^ b. 


C BREAK ) A- — ■C , 4 j H1It'T 6* < , 
( STOP ) A- — Tii^llirrL^V'. 


SMC — 


MZ35 — 


XI Hu • £ |h] L. 

• W'$L 2 (i BREAK 3-K^liA 
^JT'I 6 . 


MB1 6 

• *Jc£ffit. tzfz fb. 

( STOP ) A— (±4* < ( CANCEL ) 
m—X'hb. 

IBM55 

• M 1 h <r>’X'p^\ £ A 

tjirb 


• M 1 C7VP& ^TrFiiEJtlLA. 

• M'-Pt b 0 Sc.<r>£ £l± INPUT ¥ 


b. 

PC100 

• IBM55 £Wit. 

MSX 

• m-X£Wit. 


- 132 — 


INPUT #n 


Mift : INPUT #5, A, C#, E$ 

i i 

• $i')iMbU 

I x-y>yt^ , 7r'( )V l) -h'toT— ? £ a Jrf &. 

»a : 1 *7 T >f /u$^*fi, OPEN — 7> 

t+illfirfefrv*. 

2 A*H#(z ( ? ) 

3 7 T >f ^ + fior- ^ (i f £ S?*<— Sfc L i* tt tU£* A> &• ia. 

4 ( , ) ti INPUT b. 

5 PRINT #n INPUT #n 9 . 

^Ip I 1K >-'r> 77<^ 7 r 4 ^rMcO-f*— 9 i}< :>T OHIfiflB- i'f# & i *U 

r«J L i 7 t$ 0 . • 7 y^ /Ki«f'£l£u 3 — 

K i »)i& •) jlto Tt' & . E) ? > f/, • 77 -(;i,. 


I 7 7 "AFILE" ,irc<^.‘l*,^. 

10 PRINT "make & open AFILE" :0PEN "AFILE" FOR OUTPUT AS #5 
20 PRINT #5, "TEST PROGRAM" 

30 PRINT "close AFILE": CLOSE 5 

40 PRINT "open AFILE" :0PEN "AFILE" FOR INPUT AS #6 

50 INPUT #6,E* 

60 PRINT E$ 

70 PRINT "close AFILE": CLOSE 6 
80 END 


m ft m 

make & open AFILE 
close AFILE 
open AFILE 
TEST PROGRAM 
close AFILE 


#fjg : INPUT, OPEN, PRINT #n 




APL D $ =CHR$ ( 4 ) : 
PRINT D $ ; “READ AFILE” : 
INPUT A, E$ 


TRSi • KXt ML. 


CPM • £ In] b . fz fz L , 

ij -fe-y F • P = — 


M223 •«> InJL. tztl b, 

i]*Z"/ F • u n — rfr A, c7) A fi 

OPENn^^'C# -t 7 F • 7 7 >f ;i/ 

£*-7> L-cmv'S. 


MZK 

• CPM irfnjb. 

CBM 

•4vfc£fflb. fcfcTL, 

#*te "/ 

F • u 3 — rt>' b<r>K-)H± 

OPEN 

••/ F • 77 'f/i^ 


-/> brmv>i>. 

PC8 


• 7 T 4 /u#^*&- lizirh 

■v F • 

u zj — r fr ;,-a 

TRSn 

• A^>lnJb. 

PC3 

• *£<UnJb. 

1 1 -fe y 

F • u 3 — r*‘^c7)Atj(± 

CLOAD 

IF 82 

• CBM £fsjb. 

UA.;u 3 

• CBM ^THlb. 

Cl 80 

• nT^<<7)^INPUT#i: 

A. 


• ®5£««0*&-frGET #1 : A 

M243 

• M223 £ [a] b . 

MZB 

• A^FfiiJb. fcfcTL, 

il -t >y 

F • u zi — r-h^io(r>Kti\t 


INPUT/T. 


BUB • * *£ iwj L . 


FM3 • CBM £ [HI b. 


PSP GET #1, A, E$ EOF 

1000 

* 7 T 'f £ tf'-ffHylOOO^ 


PC88 • A>C> ImJ b . 


N52 • A'^c t V. b4‘V' *£ 

<Wi 0 A f A5. 

• 7 r -T /nF><7)-f'— ?fi, 

CHR $ (13) £ CH R $ (10) T 

E-9J&. 

• fh b teUJ >) 

• C b t'— 9 (fti&Xn-h* ( ” ) 

( ” ) tliflj nfc-fc-Ftfjfi ( ” ) 
&-%¥-£ LXfttsZ t ur-Z 

• 255 JC'P 9 fritMh £ 

iitz £ £ i,\ZV)ht U>. 


PC6 • IN PUT# -0 : ^r— rK— F\ 

• INPUT# — 1 : 77 -fe-y F * T — 7. 

• INPUT# — 2 : RS-232C. 

MLT 

• £ [KJ b . 

HC 

• A^trnJb. 

FP1 1 

• A * i la] b . 

SMC 

• 7 T 4 /Hi O PEN/I T1#J 


MZ35 

• t |h] b . 

XI Hu 

• *-££ IsJb. 

MB16 

• N52 > [SJ b . 

IBM55 

• A3ta:fHjb. 


• 7 7 -f JlsAtrSl INPUT #n 


-r>^h#n 


PCI 00 • '> — *r> is * )V • -7 T 

MIT* X 7 (;: FJ4 I s RS-232C 


MSX • fc-fCtfflt. 
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> — 'r>'>-VJls • ~7 LINE INPUT #n 


37 -O' 


Kjfc : LINE INPUT #5, E$ 

y-'r>i'tn.'7 T 'f)i-J: 1 ), 1 Kfi. 

1 7r-(mii, OPENfc'frT-TT-Utf — ri'Sil.fciOT-i: 

2 Vov-r V 7 -f ') <r>KtlX-hi> 

-€-WtI*>(± LINE INPUT 


~7a : ( , )£-g'A,£::7>’-'t'Jb“AFILE" £-'I5£*iiit\ 

10 OPEN "AFILE" FOR INPUT AS #5 
26 IF E0FC5) THEN GOTO 50 
30 LINE INPUT #5. A$: PRINT A$ 

40 GOTO 20 

50 PRINT'End": CLOSE 5 
60 END 


* ft 


Test file. l y st line. 
Test file. 2 / nd line. 
Test file. 3'th line. 
Test file. 4'th line. 
Test file. 5'th line. 
Test file, last line. 
End 


■m : LINE INPUT, OPEN 


APL 

- 

TRSi 


CPM 


M223 INPUT LINE #5, E$ 

MZK 

~ 

CBM 

~ 

PC8 


TRSn 

• \s]t. 

PC3 — 

IF82 



• fHjb. 

Cl 80 LINPUT #5 : E $ 

M243 

• M223 tfflt. 

MZB 

- 

BUB 

• Klct Isjb. 

FM8 

• I5jb. 

PSP 

- 

PC88 



N52 • CHR$ (13) !-**< CHR 

$ (10) =3— K £ 

Z t* < , £ tl tz 

z t i>X'£ & 

(tzfZ L, 

^(i255^T'). 


PC6 


MLT 


HC 


FP1 1 


SMC INPUT/L # S 
• fcfcfL, 7 T 

>f 3Ki OPEN/I t 

(7). 

MZ35 

- 

XI Hu • #:££[W]b. &•£>, 

255 

• LINPUT# (, IWJtfW. 

MB1 6 


IBM55 

■ 

PC100 

• *ict mt. 

MSX 

• **£[ 5 jb. 


=7 >? 2 x • 7 T -i GET 


But : GET #9, 3 

U I I 

• 7t^^ 1) «^l;:i u* — K 2, £«£*&tf. 

W$L : 1 w^tfr*£3tefH-*lfflfc, OPEN*, FIELD *$r^TL^tt 

2 fit&ihttltzT-flt, FIELD 

3 3 fiP =>— K #-*§-. GET *, 

PUT *co#:<7)P K**3l£lftV'-C#5£3fl*. 

4 7>fA-7r^f /Mi, r'— ? • 7 7 >f £> 51 £ *i" 

*), Zcr>T'-? ZtKtsizli 

7-m , ff:&<7) 
r— 9 Ztitfi-ttiLtz •), T'£ £ 7 r 4 iWZ. t. ®Se 

Mu =»- K J: 'JS'Jiott'i. 

2, ua-K *&Jsm-Am*/ (-t^fii) -«**< 

amm* 


-?U *f =7 A$lj : 7>^A*C>:P^Jb“AFILE" (DfKfifc, 

mu. 

10 OPEN "AFILE" AS #9 
20 FIELD #9,20 AS E$ 

30 FOR 1=1 TO 5 

40 LSET E$="test data"+STR$< I ) 

50 PUT #9, I 
60 NEXT I 

70 FOR 1=5 TO 1 STEP -1 
80 GET #9,1 
90 PRINT E$, ; 

100 NEXT I 
110 CLOSE 9 
120 END 


?t 00 

test data 5 test data 4 test data 3 

test data 2 test data 1 


#HB : OPEN, PUT, FIELD, INPUT #n 
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APL D $ =CHR $ (4) : PRINT 
D $ ; “READ AFILE, R” ; 3 : 
INPUT A, E$ 


TRSi 

• *XtWlt. 

CPM 


M 223 

GET #1 RECORD 3 

MZK 

INPUT #1 (3), A, E$ 

CBM ■ RECORD > 

?£I£SeL fcfc, INPUT #1, A, 
E $ . 

PC8 


TRSn 

• 1 it' 

GET 1, 25 

<77rtf. 25fiu 3 — K 

PC 3 

• ** A IHJ t . 

IF82 

• ** <L |HJ L . 

l^^/Us 

• ** tmt. 

Cl 80 

READ #1:3, E $ 

M 243 

• M223 t Wit. 

MZB 

• MZK tW\t. 

BUB 

• **£[511:. 

FM8 

• tttWit. 

PSP 

- 

PC88 

• t. 

N52 

• t. 


PC6 * ^K* tWlt. 


MLT • |sJU. 


HC GET% 0, A/ (RUN 7 
T 4" ^<7)7' — ^STC^ ) 

• 0 (i p =»— KfMy. 

• A/ 

• GET%3Sfmfl&K DEFFILE*(z 
i *), 1 

— KM£#L‘7 r 4 /K7)I£iE£^ 
iLTii< . 


FP1 1 

• tttwit. 

SMC 

• FIELD 0 U 

RECORD 

MZ35 

• 4 1 * InJ U . ** 

C7) FIELD *(i RFORMAT 

■9 . 

XI Hu 

• «t 0 t. 

MB1 6 

• 7 7 >f /PA* 3 = a — 4r — 

P 3 > 

• *7 7 'f /K7>*lrn\ 3 (il% 

fryhtsT—9<n'<'{ P&. 

• M 3 — 

K#-^>A*J*fc<i (EOF/ 

U G- 

KM) *>&^li 32767 


tX\ 

IBM55 

• 4^*^1511:. fc*?U P 

3 — 1 32767 ^>|£B9. 

PC100 

• ^SCtWlt. 

MSX 

— 


- 136 - 


F*3SP=I— KOO 7 7 'i)\'h'b(F) A* READ #n 


: READ #5, A, C#, E$ 

I I 

mm : v J: 1 ), 1*9® =j — K £ Aij i~ £ . 

4#^ .* 1 7 T 4 'Mfr^Ii, OPEN^T'-t-'CU^-'7’>$n^^60'e4- 
l+fUdTfc 

2 WRITE #ntfW:7r^Hi, READ #n frit ill* 

3 7r^uff(il-8. 


7° P *7 ~7 Af£lJ : I^J^ZI- a^m-r. 


10 

OPEN "POUT" 

FOR 

OUTPUT 

AS FILE 1 MODE 

20 

OPEN "AFILE" 

FOR 

OUTPUT AS FILE 6 

30 

FOR I = 1 TO 
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40 
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I 
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NEXT I 
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CLOSE 6 
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OPEN "AFILE" 

FOR 

INPUT 

AS FILE 5 
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100 
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A 

110 

NEXT I 
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CLOSE 5 
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END 
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07- -f8i, fej, m, m, Fi . cl b , 
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PC 8 • 4 ^#®. 


TRSn • 4 ^ £ t IhJ t Xb b ti\ =» 
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C180 • 7 * — ^ y b^C^IJ<7>m 

It =r o > ( : ). 

•IMAGEtCiot, 7*— 7-y 
b £ ffifc’f Z> Z. t i)*X' $ h . 

• 7*— T' y b*^iJTCl®|g[CO# 
^^^ 5 E-r- 2 >J#^(i-t = 7 o> 

( ; ) -CE- 9 J&. 

100 PRINT USING 170,: E$ 

; IMAGE X<r>ti#V 

170 IMAGE : <XX 

.•r^v: A:7 : viK < - > «-M.‘i->*v*) 

IMAGE &XW-x^'4~niZ^n 

^C-7*-flJ(7)7 ^ —*7“ y b (i, ^ 35c £ 

!%£•*. <XX : 

& n^aOT'7“ g > b i" 
-S, . >;xx : X-CtMf^ L tz&t'l f-X 
-f w\ sb X'~r g > b i~ 6 . 

• ^©3 !±fci\ 


M243 

• M223 t fuj t . 

MZB 

- 

BUB 

• 4- £ t luj t . 

FM8 

• * X. t l**J t . 

PSP 

• ( 1 Hi *££|nJl;. 

• ( 2 )(iTRS i > |wj L . 


PC88 • ( l ), (2 )itA^ *:t\"\\:. 
• ^>azKz^m^t LX , c« : -£T* 
yi] i' c« ( z\x a l t a*, ii x * h. 

PRINT USING “This is a & . ”: 
“book" 

.‘.This is a book. 


N52 

• « t IMJ t . 

PC6 

- 

MLT 

• t r«j t . 

HC 

■ & x i raj t . 


- 142 — 


7 ° ') > h (*(£> 1 ) PRINT USING 


FP1 1 

• PC88 tWit. 

SMC 

• fti&i <r> ( 2 ) it ! u_, ! 

-ciwjb 

zt**?^*. 


"t" h . 


MZ35 

• PC3 irlWJb. 

XI Hu 

• *3z£l5]b. 

MB16 

• PC88 

IBM55 

• 1 ( 1 ) (2) 

^Sx 1- ') (@) 

frb h 


PC100 

• PC88 tWlt. 

MSX 

• PC88 tlWlb. 


?'jyh • n—yy? 


(% 0 > 2 ) PRINT USING 


Jfcxt : PRINT USING “ ### ###.# ” ; A, A1 

• V ' I I 

7^-7-y bX^\ *£»&• 

&. 

4#^ : i 7t-?7 — &*> (#) ( • ) co^fi 

(1) # : *{c1ii[<7)#1ff<JOfa:S«:t&5ei"-5. Tfetfi"^ 0 

( 2 ) . : 

2 tM(±, &. 

3 «£<?> Hu . 

4 7 * — -^P y h HUH (*£^> 1 ) ^ £ 

?o*a «tv>. 


: fr#^60li, 7*— 7'V 

£Ufcf#J. 70 tT li» 7*— 7'y h^C^JTlC, #^^5: 

10 DEFINT N 
20 DEFDBL D 
30 N=1 23 
40 A=4.5 6 

50 D=3. 14159265358979# 

60 PRINT USING"#### ###.# ##.#######" ;N , A , D 

70 PRINT USING" pa i =##. ##########" ;D 
80 END 

m 'if m 

123 4.6 3.1415927 

pa i = 3.1415926536 


#fiB ; PRINT, PRINT #n USING, LPRINT USING 


- 143 - 


yuyh- zL—yyo 


APL — 


TRS. 


CPM 

• *X t IWJ t . 

M223 


4: 'Jt t l»J t . 


• &«(*-'«T5Em» 1 •) >«■&■.( *> 



MZK 

PRINT USING “###”; A ; 

PRINT USING “###. #’’ : A1 

• 1 *tU 

(2 7<7)^>eS0^. 

• DISK 

CBM 

- 

PC 8 

• ^#{m. 

TRS n 


PC3 

• (i ), (2)(i«trau. 

• (#) u (z) t-rnix. 

£ 0 £ * <r> £. £ thtJXZ b . 

IF 82 

• *Xt IsJU. 

U*<JU3 

• t ISJI: . 

Cl 80 

• (1 ) 12, (#)*>fU>‘)U 

(Z)itiLlf, WtZtfrX^b. 

Kft-fb 0 £tH7j1 ~btzii, (Z) 

£ (9) tl'Kfi'J:'''. 


M243 

• M223 t FsJl:. 

MZB 

• (1 ). (2)(i*-££rHjb. 

tztS L 



ilfi'X'S- 


PRINT 

USING 3C<7)f£(.Hz = 3 0 > ( : ) 

£olt£:£'A, Htf&ff PRINT 


using -x^m < . 

&& £U r £V : tztiitj£ J £bZ tt>< 
X£b. 


BUB 

• ^-sctra t. 

FM 8 

• ** £ 11 ] t . 

PSP 

• ** t |B) U . 

PC 88 


N52 


PC 6 

- 

MLT 

•*Xt mt. 

HC 


FP1 1 


t* b . 

SMC 


tlb. 

MZ35 

• tai ( 1 )i±Ha')tftTt 

*), 

1$a( 3 )lii?-. 


xi Hu • _ (r>f-X37) <n 
&iz f^o tiwxmtz? i mux^p 
t LTf^t^). 


• W<k 3 ti FORMAT OVER <0 je. 
7-*^T-S). 


MB1 6 

• *xt mt. 

IBM55 

• *SC t iBl t . 

PCI 00 

■ **t|5]t. 

MSX 



- 144 — 


7° 'J > b (*7> 3) PRINT USING 


Mj£ : PRINT USING “+### +####”; A, A1 

I I 

• 

m')$L LnT 

! 1 7 * —7* •/ h X^T-W J t'7>— jiliT), # 7> o(t fc4- — Trfritk 

tinker* t& *) . 

(1) + : (iK £ Oootyj<m + , t\cr>tyj'Ui 

- ). ▼ JfM'(a) “ # x+ " ^ £ ft it & . 

(b) •• + # X” 3&fi?(7>£:^u £ ftu & . 

(2) - : (H-: t ocoJfcfWii-L, 

*8&7>«*-).VJf^(a) “ # x - " ft7>&fift7>*.-*»U 

-£ftu&. (b)ftyriu-£ft(tft b #t±, ^7>££['u 

#S;fl&<50T', iK7>£c{ifi:U b -TWtv'T L £ -). 

2 (1), (2) 7)^2:, C tfrX'Z Z>. 

3 fi : -^#7SE£L£i'2:, H-: i: Onty&tt&L. ftnty&UKffilz 

- ii<r> < . 


10 A1=123.‘A2=-123 
20 PRINT USING “ ####+” ;A1;A2 
30 PRINT USING "+#### ”;A1;A2 
40 PRINT USING ■ ####-"; A1;A2 
50 PRINT USING ■ #### ";A1;A2 
70 END 


m *t m 

123+ 123- 

+123 -123 
123 123- 

123 -123 


#fig : PRINT, PRINT # n USING, LPRINT USING 


yuyb • zi-yyo 


APL 

— 

TRS i 

• *£>ML. 

CPM 

• ^ i: > Inj L . 


M223 • ( 1 ), (2 )li, 

<F>M>mX'$ &. A<X£ti$k\\'tLfi i 

• ( 1 )7>(a) (b) ti 

miv~7 4 — ;u KC(#K'?B$n*«S 

7>&Ufl : ^'tt< . £ fc, 

“++r t± 

( + )7>&fjf(+, fHtfi£ 
flffifti-i" & . £ ft, (#) T">j ’•: £ J if ~ 
fir J: ‘M ' * v ' $c 7)^ ft*, ^ cjofas 
ft 7.^— X T-&- < 0 > £ •) , ^--y- 
ti ( # ) 7) rf C H'J 7> ( 4 ) 7> fftift ( i ft 
< . (#) *C7ji$ H/zKrJ: >) ft* < , 
( + ) T-'/jx £ U ft fir J: >) 

*£}ftl±, -ftfri" & 0 ti — 7. > 

4- u , |&fifc^ifcfl{j(.: n vfi'1'!' < . 

• ( 2 )7> (a) ImJ L. ( b ) * — 

##" £-fiU£, i\cr>%icntyjft, 
il<i.~7 1 — tl K 7>ft:(I - TWll ft * H 
&. tft, “ — #" ti, fi7>$c7) 
*#ffr M223 7) (I) 7) “4 4#” £ 
ML. ft ft L, jK7)^^U-y-(iU 


MZK 

InJ L . 

DISK II MZB > 

CBM 


PC8 

4:X #!!(!. 

TRSn • 

>t- > ImJ L . 

PC3 *(1)7) (b) (2^-£ y M L . 

• ( 2 xn (b) “-#r t-tnn, n 
7)^7)i^^, mtWitCmt-ttVfi* 
ft < . 

IF8v 

t Inj L . 


u^;u.3 • ^ i; >: I..-J L . 


C180 • ( 1 ) 7) ( a ) ti "9S4 " f 

|..J^7^^ tfrX* £>. tz ti L , ft 

tri-4 0 L t\\1jX6. 

•(2)7) (b) “4-4- 9” t|i'Jf|7); > 
3& f T' ^ -5 . + L Pl'ihit * -2, . 

9 T-vj'xSUftfirJ: 9 
^7)fir|Aj7)ftfj‘1-& 0 ti 0 7 £ £ 
X\ nvti % 7)|fu)!j U f‘J- < . + T 

-7.UL, . 


M243 

• M223 2: M L . 

MZB • ( 1 “ + ##” t 

i~6. 

• ( 2 “-##” >1-^,. 

BUB 

• * £ > r»j L . 

FM8 

• A* X t M L . 

PSP 

• ( 2 ) 

• ( 1 ) (b) ti M223 1 M L . 
(b) t± M223 b |«.J L . 

PC88 

•**:£ |h-j l . 

N52 

• *£ £ M L . 

PC6 

- 

MLT 

• a^x t n*j l . 

HC 

• A< X £ M L . 

FP1 1 

• A- X £ I**J L . 

SMC • ftyfid - £ ft It fz t $ t 

jK7)i^<Wi^4j-7&.'o*»4*v ». 


MZ35 - *Xt ML. A:ft'L, ^ 
f&l ( 2 ) (b) t'jK7)f|la:|i-(io 
i* w». 3 Tti U-LI- ^ fit f 4£ L 

^{±o*»4-V‘. 


> h (*03) PRINT USING 


XIHu 


MB16 


IBM55 


PC100 


MSX 
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yuyh • n—yy' 7 


- 146 — 


h (*£<7) 4 ) PRINT USING 


®5fc : PRINT USING “ * *### ¥¥###, ” ; A, A1 

. . , i i 

7 * —T -y b *£«&• 


Wife : $Ht<Omj<50*-<-x£ (*) *Mft<oiWlz (¥) £#tt/z 

0, 3ffrlZ-W‘) £*£'£*^1-6. 

4$® : i -7t—?v (* *), (¥¥), (**¥), (,)<?> 

(1) ** : btfxo*^— *£ (*) i:t4. * * ii 

2ffr^«i*£W«1-* (fc*5U (¥) iz UfffOiffl-r 

*).▼»:£ “**###” 

(2) ¥¥ : PJK-W) 

¥¥ti 2fff^1TO£««1-*. 

▼ “¥¥###" 

(3) **¥ :(l)£(2)<mti^M££-f &. 

3 *««■*-* (fcfcfL. (¥) (z lffittfflT 

*). 

wmK, “**¥##r 

(4) , : ~7*—-?"/ \> :fcco/j'$fc.£co;£fiJ(z 3 >*y» ( , ) 

«s*fci®#<so 3 iff r tiz?> * $ ti * . 

( , ) it i ffifrnffit&zmiz-fz. 

2 t $wmx-hz>. 


zfn =y 40-70 i*. (i)~( 4 )cDi 9 ijr, softie 


10 

A 1 = 1 2 : 

A2= 12345 


20 

D#= 1234567890# 


30 

PRINT 

USING "**#### 

" ? A 1 5 A2 

40 

PRINT 

USING "¥¥#### 

"5 A1S A2 

50 

PRINT 

USING "**¥### 

" ? A 1 ; A2 

60 

PRINT 

USING "#####, 

" 5 A 1 ? A2 

70 

E$="**¥, ########## YEN 

" 

80 

PRINT 

USING E$ ; A 1 ; D# 


90 

END 




fr m 




****12 * 1 2345 



¥12 ¥12345 



***¥12 ¥12345 



12 12,345 



***********¥ 1 2YEN ¥ 1 , 234 , 567 , 890 YEN 
#f?S : PRINT, RRINT #n USING, LPRINT USING 


7vyh • z-yyy 


APL — 


TRSi • ( 1 )£( 4 

• (2 )(i, $ STxmtZt 

KX^h. tzti L, mti.coMml- 
li (¥) T-& < ( $ ) ^mtji-6. 

• ( 3 )ti, “* * $#” T'|H] t Z 
t tfXt* 6 . /z L , t>diti«Oii:Bij 
Uti (¥) *C£< ($ ) irttiiJi- 
6. 


CPM • TRSi i: foJ b . 


M223 -( 2 ), ( 4 )f±i$i|M:&<7> 

6 . 

• ( 2 )f±, “¥ ¥#" T'IhJ t Zt 

*<X £ S . /z/z'L, (#)T- 

(¥) 

ti ( ¥ ) -Ctj'x $ f L fc fff C05fr$ft} |:#< . 

*Scfif£*< (¥) T'^£*i/z«Tfl<7>*§ 
(¥) tHT<. 
®5$«r “$ $#” tlrtitZ, ($ )£ 
itt 

£ 6 . 

• ( 4 )(i^t ifti* »), ( , )-c^s 
nfzfcmiz ( , ) *\&t}1rz><r>x\ 
zmXKXVLWhZt U'H. 

( . )u i tfHryffiw.zmM'f h. 


MZK 

mt. 

• DISK Iff itcoA. 

MZB t 

CBM 

- 


PC8 

• 4^#M. 


TRSi. 

• TRSi tfflt. 


PC3 

■ ( 1 )ti “* * " 

xm t Z 


kt>*X£h. (*)liltif fr<X>M%L 
zw\%-tz>. 

•(2 )ti “¥##” TIsJ L Z t frX'% 
6. 

• ( 4 )ti M223 <50 ( 4 ) i: |sj L. 


IF 82 

• -*■& tmt. 

L' ^1U3 

• *-%tmt. 

Cl 80 

• ( 1 )(i PC3c0( 1 ) ^ IWI lZ. 

• (2 )(i 

“ ¥ ¥ ¥ Z ” -CIU U 3 i: 7& ? 

Xb 6 , 

. £tz, “ $ $ $ Z” T( $ ) 

izihlrt&zt&x 

# 6 . 


• (4 )(i M223 CO ( 4 ) tfflt. 

M243 

• M223 tmt. 

MZB 

• ( 1 ){±-4=*co( 1 )tmt. 

• (2 )(iPC3cO ( 2 ) t fflt. 

• (4 )(± M223 CO (4) tmt. 

BUB 

• 4 : £ tmt. 

FM 8 


PSP 

• tttmt. 

PC 88 


N52 


ZZtliX'£%''\ 

PC 6 

- 

MLT 

• *-&t mt. 

HC 

•*-xtmt. 

FP1 1 


* * $ 


• *c r>mm trsi co m0m. 

SMC 

• ( 1 ) ti ( * ) xmtzt 

t<X£ h. 

• ( 2 ) (i ( ¥ ) XffltZtfrXZZ. 
■ (3) ti(*¥)X'ffltZi:* t X£ 6. 

• ( 4 ) uttt mt. 

MZ35 

■ ** k IB] t . 1 ( 2 ) 


7° ') > h (*<£> 4) PRINT USING 


(±^nT, ¥(i— o£fl+1$;i&. 

( 3 )(i^nT. ( 3 )T'(i 3lfiri(; 

XI Hu 


MB1 6 


IBM55 


PC100 


MSX 
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yuyh • zL-yyy 


- 148 


> h (*<D 5) PRINT USING 


: PRINT USING “ ##. ###AAAA ” ; A, A1 

, i i 

v a -y h Scf n • s»s • 

as ') & L N 

: l -7*— Yic^n^<r>— a<o#w«tcolt4;AAAAli, * 

(7>;g;i>fc£ £>o. 

AAAA : 

▼ “##. # AAAA" 


2 

*y-c*>*. 


y ^ v A0ij : ^f#^-4o i*, *tasa;r©m*w. 5o~7oii, n 

*jr(Dz?x-^v ^ 

10 DEFDBL D 

20 A1 =12345: A2=-3. 14: A3=6. 789E-20 
30 D= 1234567890 123456# 

40 PRINTUSING"##. ##^^' ■• ; A1 ; A2; A3; D 

50 PR I NTUS I NG " +# . ##^^ " ; A 1 ; A2 ; A3 ; D 

60 PRINTUSING" #.##^^- " 5 A1 5 A25 A3; D 
70 PRINTUSING" #. ##^^+ ";A1;A2;A3;D 
80 END 


m & m 


1 . 23E+04 
+1.23E+04 
1 . 23E+04 
1 . 23E+04+ 


-3. 14E+00 
-3. 14E+00 
3. 1 4E+00- 
3. 14E+00- 


6.79E-20 
+6.79E-20 
6.79E-20 
6. 79E-20+ 


1.23D+15 

+1.23D+15 

1.23D+15 

1.23D+15+ 


& ‘.PRINT, PRINT #n USING, LPRINT USING 


yuyh - zL—yyy 


APL — 


TRS i • AAAAIi t t t t T-ISJ 
tZt*< B&ti, “##. # 
T T T T " ttcb. 


CPM • * £ £ rnj t . 


M223 mfi&giX' 

6. 


MZK — 


CBM — 


PC8 


TRS 

u • A £ l "'J b . 

PC3 


jftli, **##. #E #Z” -C*&*fc**?t 

4*. 

6 . 

• % 



• X 

: X ^ — x £• £fci 7j 'T 6 . nXbf 

H(2:, nj|AlC7)X^— 

• L 

: CR/LF £*ff5e1-6. 

• C 

: CR 

• N 

: -h ;u . u — K £ ft £7 -f 6 . 

• T 

: TAB = 7 - yzihtlirz. 

IF 82 

• £ [nj b . 

l s'OV* • #X£fflt. 


Cl 80 • ffi m “Z9. 9EEEE” *C 

6 0 (i 0 (7) £ £ T- * 6 . 

*^9IJ*>3feSSiU (<) ^gSAi-^L 

(if, (>)£gex 

;frI£a6'Cfcb7j'T6 . 


M243 *M223 £IW]b. 


MZB 

— 

BUB 

• * £ £ |Rj b . 

FM8 

• A £ > Inj b . 

PSP 

• A £ b fnj b . 

PC88 

• |Kj b . 


^cT-i± , # 6 ^C'/ : £ L X tH f] T 


N52 

• ** £ IhJ b . 

PC6 

— 

MLT 

• PC88 £ ThJ b . 

HC 

• ** * ra b . 

FP1 1 


SMC 

- 

MZ35 

• PC3 £ Is] b . 

XI Hu 

• <h IS] b. 

MB1 6 

• PC88 fclRlb. 

IBM55 

• PC88 tlWJb. 

PC 100 

• PC88 ifnlb. 

MSX 

• *-X£\Slt. 


■7°') >9^<7)£Jj LPRINT 


: LPRINT A , “ " ; B 

I I 


'j x i- 

tfgm : y i 

W# : i (l ? ) 

2 %<r>m* print com tmt. 


10 A$= ' 9 ? ’ 

20 B$= * 3D " 

30 LPRINT A$ 

40 LPRINT B$ 

50 LPRINT 
60 LPRINT A$;B$ 
70 END 


m ft m 


5>? 

3D 


7f3D 


#as ; print 
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i;u • 7uz/h 


APL 

PR#6 

TRS i 

• ** t rnj t . 

CPM 

• A< £ t rnj t . 

M223 

• CBM t mt. 

MZK 

PRINT/P. A, “?-f” 

CBM 

PRINT#n, A, “7f” 

PC 8 

• 4^£#!KL 

TRS„ 

• ^LlnJL. 

PC3 

PRINT A, " 9t " 

IF 82 

• Kkt fflt. . 

L"~ZJL'3 

• PSP t fnj L. 

C180 

• OUTPUT# 

M243 

• CBM tfitJC. 

MZB 

• mzk tmt. 

BUB 

• 4:* fc lu'J t . 

FM 8 

• PSP LImJL. 

PSP 

PRINT#1 : A, * 9 -t" 

PC 88 

• ML. 

N52 


PC 6 

• - 4 : & b luj L . 

MLT 

• ^tlHjL. 

HC 

• >P££:Mb. 

FP1 1 

• *■*:* ML. 


SMC 

B 

PRINT C« 1, A, “ 9 t" ; 

MZ35 

PRINT A, “7t” ; B 

XI Hu 


MB1 6 


IBM55 


PC100 


MSX 
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>9 l tit! LPRINT USING 


mat : LPRINT USING El$ ; A, E2$ 

> . . i i 

-7 * — hW^JFIJ *4£H& • LU 

(,(i ; ttivo 

7*- w -erase l >^ ic 

: 1 T'J X £ SrRfe^T, PRINT USING <h (h] b *C 

£> 6 . 

2 mmftxntiJkryr*) £mmx*>z. 

: 1 ’7t-7 7l> IS^. Au l h*c7)^r-^fi0^^rttifiJ, {£ffi£?irf 0. ~co 

**£•»* ru >^{cm*T*i^c7), t*>. 

+ CPU (, CP 

U t tt:fcuaratft«*>«‘g:**T -7 *:*>*>*»«: v* -5 . x - T(i rtf — h £ |S]*L 


7° P *f "7 A#lj I LPRINT USING £-1£x>£R 


100 

DEFDBL 

D 



110 

El *=" PERSONAL" 

s E2$=" COMPUTER" 

120 

LPRINT 

USING " 

* " ? El $? E2$ 


130 

A 1 =- 1 2 : 

A2= 12345 


140 

D= 1 234567890# 



150 

LPRINT 

USING " 

######.#+ 

" ? A1 5 A2 

160 

LPRINT 

USING " 

**####.#- 

" 5 A 1 5 A2 

170 

LPRINT 

USING ” 

+¥¥####. # 

••SA15A2 

180 

LPRINT 

USING " 

**¥###. # 

"? A15 A2 

190 

E$= ,, **¥,##########YEN » 


200 

LPRINT 

USING E*;A1;B 


210 

END 





*r m 





PC 

12.0- 12345.0+ 

**** 12.0- * 1 2345 . 0* 

-¥12.0 +¥12345.0 

**-¥12.0 ¥12345.0 

**********-¥ 1 2YEN ¥ 1 , 234 ? 567 890 YEN 


#i% : PRINT USING, PRINT #n USING 


xju • • zi—yya 


APL — 

BUB -*:££iwjb. 

TRS, • *(± PRINT 

USING #M. 

FM 8 • U-<;U3 <>: IW] lx . 

PSP • OPEN # “PR1”, “X”, 3, 

“0” £ LTL-^T^b, PRINT 

#6 using x\ %m<r>z£ij<-*t. * 

6 , £12 PRINT USING 

0 m. 

CPM • *-$: £ &% & &lt PRINT 

USING #M. 

M223 • PRINT #6 USING XW] 

ffi<7)Z£a>* nT. -f-^Twu 2 ’ (XX 
T'(± 6 ) tC7*'J SOUTlfcfcti 

SOUTA 

* (2 PRINT USING 

PC 88 • *:£££!& 6 . £(2PRINT 

USING 

N52 * i In] IX . 

MZK PRINT/P USING “###” ; 

A ; 

• 1 ff(C 

• DISK 

PC 6 — 

MLT • £ |SJ L . 

HC -*:*:*rab. 

CBM — 

FP1 1 • *-$C£mt£h ,£(2PRINT 

USING #B«. 

PC 8 • 

TRSn • ^-Jc£gc&2> *(iPRINT 
USING 

SMC PRINT @1, USING E$, 

A, E$ 

• ^~X£ .£f2 PRINT USING 

PC3 • PRINT USING T*|hU& 

cox £frttS. *(2 

PRINT USING #M. 

MZ35 • FP11 £ |W] b. 

IF 82 

XI Hu • PC 88 ^ (hJ b . 

u^;u 3 OPEN “0”, #3, “LPTO : ** 
HTU^t^b, PRINT #3, 
USING :££!£-?. 

MB1 6 • #-%£mt. 

IBM55 • *-X£[5\t. 

C180 • OUTPUT #6 USING “C 

r«Jtm<7>x <h nx. 4:tiMs.A;n 
PRINT USING #M. 

PC100 -PC88£[5]b. 

MSX -*-X£mt. 

M243 • M223 £ l«J b . 


MZB • MZK £|5JI:. 


COPY 


Jgxfc : COPY M 

T 

mm : crt t,zm7r^<nmm£-7') > =* t°— ■ t&. 

I 1 M cofitti 1 ** 5 -C, 7 t°— -f-&iliffi£^1\ 

(a) : r^xi- 1) ilj®<50«^. 

(b) : /77 >f -y ?0®7)^. 

(c) : r * x b unm t/77^ -y 9 0®. 

(d) : /77-( (±T*n/2 

(e) :7m>®ii/77-( >y ? 0® ( _LT* f 1/2 7)g £ (C & 

*). 

2 7°'J > 9\z J: o-C(i, 7 h° — £'"C£ &. 

3 (COPY) * — X'i>-7') > Ft^>. 

m|E • i'ft7Kr + 7H®) *— IK— Krt'feXTjLfc:*:^, 7o I* 

£> <t £ 2^V<T -5. CMiffii. 


*r m : 

Id A— K • =1 t*— 


U 7, h <L <L t IC 7’ U 



40 LI NEC 50, SO- 
SO LINE ( 120 , 1|0) 
60 LINE (10,5 
70 FOR 1=1 TO 
80 cou:ir=ci, 

90 NEX " 

100 COPY 5 
110 END 
0k 
run 


TEP C 50 , 50 ) 
STEP (90,80 
TEP (50, 30) , 
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APL — 


TRSi — 


CPM — 


M223 — 


MZK — 


CBM — 


PC8 • 124A call ~t b t 

^^iS® £ 7 h°— i~ h . 


TRS„ — 


PC3 — 


IF82 COPY 

• t" 4 x 7° u >f i- £ *i*t v •> & lij 

\%<r>n^>, /<7^-/77> 

fe7)|HS^£7“'J > 9\z 

wmirh. 


1*"<JU 3 

- 


C180 

CREQ) CP (NL] 

1 T'T^ &. 

M243 

- 


MZB 

COPY/P 1 


BUB 

- 


FM8 

HARDC Ml 


• Ml = 

0 T'^c ^7^, 

Ml = 1 t 

/77 ^ 7 77 (;*:), 

Ml = 2 T' 

/77 4 "/77 (40. 


PSP 

- 


PC88 



N52 

— 



PC6 LCOPY 
• "7° 'j > ^l±@i® 
i-4. 


MLT * PC6 £ ® L. 


HC COPY 
• LCD 

£rtnlc7“ 'J > 9 


FP1 1 COPY, ,M1, M2 


SMC — 


MZ35 GPRINT Nl, N2, N3, 
N4, N5 

• (Nl, N2) (£_t), (N3, N4 ) 
(*JT) & Eft 

N5 cfc ») 

-r 'j > 


XI Hu HCOPY M 
• Ml± 0 ~ 4 7)**$L 

0 ! /77 4 y ? 1 , 2 , 3 7)® 

®7)^|£ 

1 I 7*7 7 4 y ? 1 7)0® 

2 : /77 4 y ? 2 7)0® 

3 : 7*7 7 4 y 7 3 7)0® 

4 :f^XFi/77ry71, 


2, 3 7)0®7)^ 

^ 7, b 0®. 


MB1 6 

• =7-7> 

L, 

EMfc*— <?)«tfgi: L-c**. 

IBM55 

• n t° — • %—£)*& h . 

PC100 

• 7 t”— • — 7)(1*‘{C 

LCOPY -C7“ i) > 7 iztMj- C£ &. 


MSX — 
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— + • 7 7 PRINT #n 


: PRINT #6, A, C# ; E$ ; 

I II I 

* &W& • IK ») L «r 

fflMi : is—r^ss + ji; ■ vr'f /uz-r—?& aurtz. 

W<%k : i 7 7 4 OPEN ifc^'C'T'CtZ T — 7°> ZtLtl ten -ei- 

2 (_,),(;) PRINT 

3 r-^fc-rij -5 &4 x*-.y h (z 


yp r^y-l-JU-APILE'^iJ, f$2«, 

10 PRINT "make & open AFILE" :0PEN 
"AFILE" FOR OUTPUT AS #5 
20 PRINT #5, "TEST PROGRAM" 

30 PRINT "close AFILE" :CL0SE 5 
40 PRINT "open AFILE" 5 OPEN "AFILE" 

FOR INPUT AS #6 
50 INPUT #6,E$ 

60 PRINT E* 

70 PRINT "close AFILE": CLOSE 6 
80 END 

5* fir m 

make & open AFILE 
close AFILE 
open AFILE 
TEST PROGRAM 
close AFILE 


#fig : OPEN, PRINT, WRITE# 


yuyh #n 


APL 

D $ = CHR$ ( 4 ) 

PRINT D $ ; “WRITE AEILE" 

PRINT A, E$ 

TRS, 


CPM 

•tttmt. tzt* L, i: 

*fe- *y k 

. 1 

M223 

• CPM trnjb. 

MZK 

• cpm ^rs]b. 

CBM 

• *£MnJb. /z /z L , i] 

*fe "/ k 

• ix 3 — 

OPEN k - 7r^^ 

t — -r 


PC 8 

• 4* £#!!«. 

• 7 T 4 1 izi" -g, tti-b 

"/ k • 

U rj — ^'(Z l , li^ji~-i). 

TRSh 

• * X t liTj b . 

PC3 

■ A^Xt l.fj b . fztz TL, *7 

•fe y k 

• ix r? — 

CSAVE 

IF 82 

• CBM irfWJb. 

lx ^<^3 

• CBM tfWJb. 

C180 

• OUTPUT 

#1: A. 


• PUT #1 : A. 

M243 

• CBM £|WJb. 

MZB 

• 4^>f«Jb. tzf' b, i] 

-fe y k 

• lx n — 

PRINT/T. 

BUB 

• 4- A; b I»J b . 

FM 8 

• CBM tfaJb. 


PSP PUT #1, A, E$ 


• t*fig(± CPM tfflt. 


PC88 

■ 4^i;> N b . 

N52 

( ” )£i?#&t^fiCHR 

$ (34) 


PC6 

ttt 1*1 b. 

MLT 


HC 

CASO, CASK ij -fe-y k ) 

IZ m Xli “ . ” t ' : " ent't. 

^ T'L mj b ztiz. 

FP1 1 


SMC 

7 T 4 'Mi OPEN/O T 

•* — -7”> 

- £*t/z t^)UFj44. 

MZ35 

t |5j b . 

XI Hu 

4bfc£|BJb. 

MB16 

4b££I*lb. 

IBM55 • 

( , ) t ( ; ) «E8U*<i- 

<, %i-xKl£ ( ; ) 



PC100 • 

^*^:fWJb. 

MSX 

4^:*: <L In] b . 


PRINT #n USING 


: PRINT #5, USING E$ ; A, A1 

^ , | 1 

-7*—^ vh • 

&') ML*I 

4 jgjg : £ 7 * — ^ >v b xv-nx^ l fc# 5 £-c f 7 T >r 

m*rr*. 

4$^: 1 PRINT USING £ |hJ t X 

hh. 

input # mtsi, ( , ) <r> ffi&X'T-rfrfrmz 

tl2>X>X'&&. ( , ) £ti, LINE INPUT # £11^ 

£ cfc^. 


37° p >7 ^A$I| * PRINT #n. USING X Z> ~p -( )V ft',1 J U, W? 

* TJL£ LINE INPUT #TA* U, :7U > 

100 OPEN "AFILE" FOR OUTPUT AS #5 
1 10 E 1*=" PERSONAL ":E2*=" COMPUTER" 

120 PRINT#5, USING " ! " 5 El*? E2$ 

130 PRINT#5, USING "& &"?E1$;E2* 

140 A1 =123456 ! : A2=-4. 56 
150 PRINT #5? USING "#######.# " 5 A 1 J A2 
160 PRINT #5? USING "**¥####.# "?A1,A2 
170 E$=" ^¥ ? ######YEN " 

ISO PRINT #5? USING E$?A1;A2 
190 CLOSE 

200 OPEN "AFILE" FOR INPUT AS #6 

210 IF EOF (6) THEN 240 ELSE LINE INPUT #6 , E* 

220 LPRINT ES 

230 GOTO 210 

240 CLOSE 

250 END 

n ft m 

pc 

PER-COM 

123456.0 -4.6 

¥123456.0 ♦•♦*♦-¥4.6 

**¥123, 456 YEN *******-¥5YEN 


#hb ; print using, lprint using 
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yuy h#n iL-yyo 


APL — 


TRS i • 

PRINT USING #Rt. 

CPM • A>c t 

PRINT USING 0m. 

M223 • t 

PRINT USING 0m. 

MZK — 

CBM — 

PC 8 • A £#M. 

TRSn • *£ 

PRINT USING #M. 

PC3 • PRINT #5 USING “CFO 

tvx$z>. 

*(i, PRINT USING #HR. 

IF 82 -AiltrnJL. 

U"<JU3 • A £ i: T»J L . 

Cl 80 • OUTPUT #5 USING X 

t &XZ 6. 

PRINT USING #H«. 

M243 • M223 ^ |WJ U . 

MZB — 

BUB • 

FM 8 • A £ t InJ L . 

PSP • WRITE #5 USING X 

W\m<r>zt^x^h. A3 Ctn* 
&.&(*, PRINT USING 0m. 


PC 88 • fcX t 


PRINT USING 0m. 


N52 

• 4^ t [H] t . 

PC6 

- 

MLT 

• PC88 tmt. 

HC 

• Wf&2 (iAU. 

• -r—9 

la /E L 


n & ^ 


fpii 

• A^^^liPRINT 

USING #H«. 

SMC 

• FP11 t\» It. &is, 7 

T I ;Hi OPEN/O *C — 7° > £ 


MZ35 — 

XI Hu 

- 

MB1 6 

• A3c£iwjb. 

IBM55 

• f$®2 l± ( . ) t ( ; ). 

PC100 

• PC88 £|5]b. 

MSX 
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= 7 >?'u • 7 T 4 PUT 


Tfcxfc : PUT #9, 3 

£B&nT 

I 7>/A'7t^ MlfcfeZtLtl 1 U 3 — 

4$®: l OPEN:*:, FIELD 3;£3l*TL&tt 

tlixtc 

2 FIELD 
ALTL) < . 

3 3 1 iua-Ktf. 

PUT 3 — Kiltie £*i£. 

4 7>fA • 7r^Ui, f-^ • 77^K7)ifj 3 ^^^|^t 

1® 7 . 


~f □ iJ : • -7^-r;b“APiLE” cD^^, i% 

<&mu. 

10 OPEN "AFILE M AS #9 
20 FIELD #9,20 AS E$ 

30 FOR 1=1 TO 5 

40 LSET E$=" test data"+STR$<n 
50 PUT #9, I 
60 NEXT I 

70 FOR 1=5 TO 1 STEP -1 

80 GET #9,1 

90 PRINT E %>i 

100 NEXT I 

110 CLOSE 9 

120 END 

m ft m 

test data 5 test data 4 test data 3 

test data 2 test data 1 


#HB : OPEN, GET, FIELD, PRINT #n 




APL D $ =CHR $ (4) : PRINT 
D$ ; “WRITE AFILE , R” ; 3 : 
PRINT A, E$ 


TRSi 

• *Xt IhJL. 

CPM 

• *xtwit. 

M223 

PUT #1 RECORD 3 

MZK 

• 1 U r/ 

PRINT #1 (3), A, E$ 
- Kt±32^M h 

CBM • RECORD > 

9 £1x^1 L tzik. PRINT #1, A, 
E $ . 

PC 8 


TRSn PUT 1, 25 
• lliUG-K#f. 25 (±U3— K 
#-9-. 

PC3 

•*-*:£ Wit. 

IF 82 

• *X£ wit. 

L-' 

• *x twit. 

Cl 80 

WRITE #9:3, E$ 

M243 

• M223 £Wit. 

MZB 

• MZK tWit. 

BUB 

• **£Wit. 

FM 8 

• ^x twit. 

PSP 

- 

PC 88 

• *X twit. 


N52 -*xtw\t. 


PC 6 


MLT 

• *:fc£l5l t. 

HC 

• PUT%£1“& t RAM 7 

r-f M 

;cli\ 

PUT%0, A / ftht* 

1/ G- 

- K#-^0^A/ <7>fit£#£ 


FP1 1 

• *X£Wlt. 

SMC 

• FIELD i> 


RECORD XXbh. 

MZ35 

• **£1*11:. 

XI Hu 

• |5| b. 

MB1 6 

• u zi — 1 Jo 

(T'-f 


-KDit. fcfcTU 32767 i 0 

'J'£v 


IBM55 

• w 3- Kffli 1 frt. 

32767 £ T\ 

PC 100 


MSX 

- 


~7 -i — JU 1-SET 


: LSET El$= “ ABODE 


mm 


=? > . -7 r , f/^A'7 7 7 1 ’ <7)7 >f — K 2> 

1 7 ^ _, u £, £o%t7>^-7r 

^ ;l , . ^ 7771 :#^^ 

2 -x^\\-h<-7 4 -;l K^J: £, 

_ , 

3 3 . c7) r 7 > K <7)mJ C, FIELD 3$C £• L t£ *C "t {± &* *o j.‘ ^ 

4 iBcfiUti Z <7> D7^> K£^fri~&lf'jL:, MKI$, MKS$, MKD $ 
4- £ ' L &*lt tll£^' 

5 • 7r >f 




»/<77 7 -f— ^^ai£7)^a6l-. f'— * £— < ^is£. 

2)-? 4 —Ji, y 1 u 3— Yft(T)-7 T W *t6*£Rfr<7>w t . 


-f P {f ^ A$lj : 7Y — JbK£T’ - 7-r — JbKflWt^-ifetoT, %wi&&x> 


100 OPEN " KYU— f "AS #1 

110 FIELD #1,15 AS N$ , 5 AS S* 

120 INPUT "NAME" ; 1$ 

130 IF I*="E" THEN 190 
140 LSET N*=I* 

1 50 I NPUT " YOK I NZANDAKA " ; A* 

160 RSET S*=A* 

170 PUT #1 
180 GOTO 120 

190 LPRINT " ** YOKIN ZANDAKA **" 
200 FOR 1=1 TO LOF(l) 

210 GET #1,1 

220 LPRINT N*;S*;"B" 

230 NEXT 

240 NAME "KYU-f" AS "SHIN— f" 

250 CLOSE: END 

n ft ffl 

** YOKIN ZANDAKA ** 


m i yazak i 

500 on 

A . nakamura 

8900R 

nakan i sh i 

loooon 

noda 

loooon 

n i sh i da 

7500R 

hor i uch i 

1500 on 

suzuk i 

600 on 

Y .nakamura 

loooon 


#0 B : rset, field, put, get 
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U77S • tZ'Vh 


APL — 


TRS i 

• *-%t\ 5]L. 

cpm •*■*:*: fflt. tfz, hh 
t. h u > r*tLrs#>\,z 
X^h (Z 

<r>££l£, ml & o X FIELD 
HfrL &* < tUv'). 

M223 • §£ & L . 

RECORDSIZ^T-tx^i - ^ £, g 
$)] 6\){c ’ ' < v~7 r iz&rf 

&£>X'W£&£tiZ>. 

MZK 

- 

CBM 

- 

PC 8 


TRSn 

• **£ IsJL. 

PC3 

- 

IF 82 

• £: IsJ L . 

lss<Jl*3 

• *-*£1*11;. 

ci8o • mm%L. tz tz l , e $ = 

“ABC” TU K Wtk U -£'7- > £ 

VkZXti'th £ tc'J&blz-t & z t 
litl h. 

M243 

• M223 £ Is] L 

MZB 

- 

BUB 

• **£Ih]L:. 

FM 8 

• *-*£!&! b. 

PSP 

- 

PC 88 

■ **ilBJl:. f-f~ t, * 


-fe-y (. . f-T!:^lt L fH] L ^ 
£1)<X'£Z>. 


N52 


PC6 

• *ic£mt. 

MLT 

• CPM 

HC 


FP1 1 

• *-%£\5) t. 

SMC LJUST 20 AS E$ 

• RECORD -X^X'ftiTE.'fZ. 

^ h . 

MZ35 

- 

XI Hu 

• *■*£ mt. 

MB1 6 


IBM55 

• ^-3t^:l5]b. tzt' L, 


FIELD 

^-x.hiitz-7 

1 —)\s h. 

PC100 
MSX — 
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7 Y -JU RSET 


: RSET El$ = “ABODE” 

mm : 

£ &£>*. 

45# : i 7 >< — ;u J: £ , ti'JihX'? > ?' l» • 7 

7 T )V • /<-y 7 r lifrtt LSET £ [u]^ 

2 &ffc&.£\ ^tc^^^Tm*L/wV^fse-5 tfiefU-CA* 

3 7> ru • 77 T 


7 ° n *7 -7 A$lj : ^ Y — Jb FXt7 Y — Jb ffl^t^i#,*^ 

100 OPEN "KYU— f"AS #1 

110 FIELD #1,15 AS N$ , 5 AS S* 

120 INPUT "NAME" ; 1$ 

130 IF I*="E" THEN 190 
140 LSET N*=I* 

1 50 I NPUT " YOK I NZANDAKA " ; A$- 
160 RSET S*=A* 

170 PUT #1 
180 GOTO 120 

190 LPRINT " ** YOK IN ZANDAKA **" 

200 FOR 1 = 1 TO LOF < 1 ) 

210 GET #1 ,1 

220 LPRINT N*;S*j"R" 

230 NEXT 

240 NAME "KYU-f" AS "SHIN-f" 

250 CLOSE: END 

m ft m 

** YOKIN ZANDAKA ** 


aka i 

1 000 OR 

ok'uda 

120 OR 

nakaj i ma 

500 OR 

■fuwa 

15000R 

takeuch i 

5030R 

h i no 

750 OR 

xosh i zawa 

3200 OR 

Y . nakamura 

1 000 OR 


: LSET, FIELD, PUT, GET 


zp Yh • Izwh 


APL 

— 

TRS, 


CPM • fcXtM L. £tz, bh 

pFUtl*3T% X h U > 7 '£TjOV)(z 
1 " £*:£>(;: fit! -? Z t h T'£ h (Z 
<7>££lt, HU l oT FIELD :££■ 
^frL ic < X i J: v>). 

M223 -mm* L . tz t* L , gfiyij 

RECORDSIZ £ ? 
HS:5e1 ~2>t, Twu • 

'*-y 7 T *C**-&i tlh. 

MZK 


CBM 


PC 8 

• >Kl5c#j!?L 

TRSii 


PC3 


IF 82 

• lujb. 

3 

• Nb. 

ci 80 • tz tz l , 

MOVE E$ =123.45 [2)T'l/3 
- K**fc(c 2 &f££ ft A 1 -& *, g 
r tl±X£ &. 

M243 

• M223 blifJL. 

MZB 


BUB 

• ** t IhJ t . 

FM 8 

• £ (SH: . 

PSP 


PC 88 

• **>\ *7-fe 


■V ht«Lni!It;i 4 'Ti 4 . 


N52 

* ** t InJ t . 

PC6 

* tttfflt. 

MLT 

• CPM bliiJL. 

HC 

• ** t IWJ L . 

FP1 1 

- 

SMC RJUST 20 AS F$ (2) 

• RECORD Sc^x^irh. 

• b fOfilJ x* 

MZ35 

- 

XI Hu 


MB1 6 

• *:££n3L:. 

IBM55 • afrfcfcimb. fj/bL, 
FIELD ICX'fcmZ tl&fr'otz-X 
5-z.t,titz'7 

4 ~ ft* Y\ftX-ft 1 8i-*ti) < X£ 6. 

PC100 

• t |HJ t . 

MSX 

~ 


|*]g|5 3 — Y(7)7 Jls^CDliiJj WRITE #n 


Bit : WRITE #6, A, C #, E$ ; 


* ft »& • ') L «T 

: x-t>yt^'7r^n:, K 1> £iB*rf 

&. 

* 1 Vr 4 OPEN — 7*> Ztifc t<50-Ci* 

itnif&fcfrv'. 

2 i*j 8&3— Kt±. ^c-t : ^Jt'— ?lz'>\*'Xl£X3 : %i + 1 '<4 H . #- 

K h ti-S. 

3 X^h £ Ml X is & It fU* & 

*o & ^ . 

4 PRINT #n (E Jrb^ X , Wi MJ vMti* P & < "C i/1 ti* . 

5 ( ; )|±7t-^7 h 

"rtSBu- K ftfifUi y -t •) 4 , T'2M , W^T*-&£*lT'.'£*<, Zco'WAcor'— 9 £ 


/□^7A^iJ : figiszi— 

10 OPEN "POUT” FOR OUTPUT AS FILE 1 MODE 3 

20 OPEN "AFILE" FOR OUTPUT AS FILE 6 

30 FOR I = 1 TO 5 

40 WRITE #6 , I 

50 NEXT I 

60 CLOSE 6 

70 OPEN "AFILE" FOR INPUT AS FILE 5 

80 FOR I = 1 TO 5 

90 READ #5 , A 

100 PRINT #1 , "DATA= " ; A 

110 NEXT I 

120 CLOSE 5 

130 CLOSE 1 

140 END 

m if m 

DATA= 1 
DATA= 2 
DATA= 3 
DATA= 4 
DATA= 5 


#HB : OPEN, READ #n, PRINT #n 
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APL 

- 

TRS i 

— 

CPM 

- 

M223 


MZK 

- 

CBM 

- 

PC 8 

- 

TRSu 

- 

PC3 

BPRINT #1, A, E$ 

IF 82 

— 

U' ''v./U.'i 

- 

C180 

— 

M243 

• *xt mt. 

MZB 

- 

BUB 

- 

FM 8 

- 

PSP 

— 

PC 88 

• 4^ £ t InJ t . 

N52 

- 

PC 6 

— 

MLT 

- 

HC 

- 

FP1 1 

— 


T7-fh #n 


SMC SEND #6, A. ES 
• 7 r > f Mt OPEN/S XVttl-* — 
-r > 2 titz h <r> xtz it tii£ ^ it & 

V'. 


• 7 r >f O ^127. 


MZ35 

PC3 ifnl t. 

XI Hu • r'— Ll( , ) £ 

mu x^n T—mtZltC*) 
£ol+, mthX\&+)XZ>. 

MB1 6 


IBM55 ■ 

• gg*fcl± 

■EH&l, 4lU^(±4*v-. 
( , ) ( ; ) XUMh. 

PC100 

■ ( ; ) LM&fSSrL. 

MSX 
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rf— h mij OUT 

Jfcxt : OUT32, &H64 

He, 1 ><4 h cr>T— ?£&t)TZ 

&m : i totbm \m±, h m 2 <n$\m±, tts tj-r&T 

— jr$\ 

2 0 — 255£ T^lOit^^C £ ^ ii &H00 — &HFF 

3 HnlS I/O ft £ <7) Y >^-7x-X(:f 


yp ^A0IJ : A~z •:□— out 

lci£U, 13 X 'P CT <L 1C Cfc If u — 

10 FOR J=65 TO 81 STEP 13 

20 FOR I=J TO J+12 

30 GOSUB 100 

40 NEXT I 

50 1=10 :G0SUB1 00 

60 NEXT J 

70 END 

100 IF <INP<&H40> AND 1 )=1 THEN GOTO 100 

1 10 OUT &H1 0 , I 

120 OUT &H40,1 

130 OUT &H4G , 0 

140 RETURN 

m *=r m 

ABCDEFGHI JKLM 
NOPQRSTUUWXYZ 


0 m : inp 




APL 

— 

TRSi 


CPM 


M223 • *3l£ngb. fz tz L , ^ 

»2*>3l&Tl&5£3tt*: 1 '<T h 

• T'— 

mzk • t. &•&, 

T°— h #^7 ^rlOitf-'t' h t & (Ihij 
tZ(S £o(l&. 

CBM 

— 

PC 8 


TRSn 

- 

PC3 

- 

IF 82 • tzKL, m 

jjtf- Yttti, 2 ^<T h 
( — 32768 — 32768 )■£'<& h . 

L' 

— 

Cl 80 

- 

M243 

• M223 t I&J t. 

MZB 

• mzk t ISJ t. 

BUB 

— 

FM 8 

- 

PSP 

:#!+■&. 

PC 88 

• *Xt |HJU. 


N52 — 


pc6 -tttmt. 


MLT • fcW>*>9l*fc(i0HU:65535 

-&H<7)l2fr, &0 (8 it), &B(2 
it) b*I. 


HC 


fpii • ibtj#- h 

-32768^ ^65535 £ 
• LOUT 


SMC 

• *Xt Wit. 

MZ35 

- 

XI Hu 

•to#- 

• *xt not. tz* tl, m 

h 0 -&HFFFF. 

MB1 6 

• ?K— h 0 -65535. 

IBM55 

m±. 

• MB16 ifHjb. -51 

0 255 £ T'<7>3& it. 

PC100 

• *:fc£|SJt. 

MSX 

• *:fc£|WJL:. 


7°n '?=7J±(DU- K LOAD 


: LOAD “ 1 : AFILE ”, R 


•5.. 


: i 


K7^-t: 


( : ), 7 7^^, ( , ) 


LOAD c 7>ft5e(i, 

Rt7y a >. 

7 T /f^|i, SAVE KxmiteMSfUifcOXfcl+ft 

(i'&r *o 

R*7°X3 >Zi%7El 77>f/^ ^^O-Kt 

r >f A^-f^xEH b, y x V izbz-f^x 

Xo 

rtt°x 3 £fi, *ti£ -effl^x^fz-y T 4 ^ 

I tffly,'fz££X\ IfefcLfz Xu X7A(iu — KL fz&BfflMtz 

-7° a /7ACJ / X U X>XT X**/J>$V'£ £, R * 
7 ° x s > £ LX, v ■> < o*>co 7° u X 7 A £■ Lttt'ffl X 

£&. 7°o 7'7A^^itm(i, :n^f-^*7 

7 4 'i' £ i§ L X ?& £ K & . 


fy tflj : :?□"/ b* • XT X^7 ic “EXAMPLE” (D 
Tl > ‘/i:Xl=lX^A£'l=l — KX'S. 

ffbV-m GOTO 50 
30 PRINT A; "'"■2 =“iA A 2 
40 GOTO 10 
50 END 

save "2: EXAMPLE" 

Oki 

new 

lofd ”2: EXAMPLE" 
l' B t 

£ ir U A T ="r^N GOTO 50 
30 PRINT A; " A 2 =";A A 2 
40 GOTO 10 
50 END 
0k| 


#HB : SAVE, RUN 
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□-K 


APL 

LOAD “AFILE” S7, Dl, 

VI 


• 7 7 4 Axg, Xo 7 |>. 


, K 7 'f X • +>'<, tf.'J 

J3L — A 

• R XXx 3 >(i 

TRSi 

• *1CtW. It. 

CPM 

• *X£fW]b. 


M223 OLD “1 : AFILE” 

• SAVE u-7> KXftttLfc7 7 4 
;K7)o— K(i, :^)OLD 

K£ 

LOAD “1 : AFILE" 

• LIST 7 -? > K X't&lft L 7 7 4 
;Wi, LOAD u-rpy K£B§V'&. 


MZK LOAD FD1, “AFILE” 

• fzf*L, Rt 

7°x 3 Xi&V'. 


CBM DLOAD “AFILE”, DO 
ON U8 

• *&^NMt±, 7 7 T 7L^, K 7 T X- 
-j- > /<, j-~'v h Rt 

Xx 3 >l±4-v\ 


PC 8 • 


TRS 11 -^XLIhJL. 


PC3 LOAD “AFILE” . 

, 100 

• AFILE £ u — K L tz'ik. 

100 *t 

• 7° 0 X 7 A |U iff/j nVi: 3 A X- «I 

fi££: ALOAD 

IF 82 -^XLIhJL. 



i^x<;p 3 -4:X;L[5]L. fc ftfL, X 

u ^7 A » Holt & hUU ( CTRL ) 

-(d)*— £ Atj-tz tmn^w-± 

L, 7 X •; 4>COXo 7'7 A(±I£lT 


£ix&. 


C180 LOAD AFILE . SR/1 

• V — X • 7— A^j4 3 J=-7 — 

**§££L*:££, — GH&IrtSr+Wr 
L ?£, &t+-Cte*rtLfc^fc £ 
LOAD AtJ-f rfxli'J: v*. 

• NEW fc*4TLfc*>*Xo— KL& 

v-'L, XO/7AA7 — x$^l-2>. 


M243 -M223 £|s]b. 


MZB LOAD FD1 @ 1, “AFILE” 
• fl^eiUMt*, K7^X- t>^', x 
U — X • X 4 X X >y h • jK'J a- 
A-tw<, 77 ^^. RTX 

X 3 


BUB 

• 4^XLInJL. 

FM 8 

• £ l§] b . 


PSP LOAD DF1, “AFILE”, 
HIMITU, @ 

7r-f7U^, 

^<X7-K, (@). 

• @£#t LOMEM 


PC88 

• tttmt. tzt* l, x 

>f X71UM-tc 

N52 

• r tj-Xx 3 xnn'fetf* 

£ ^(iri-v^x K * 

-i>. 


PC6 

•*-sct mt. 

MLT 

• K 7 'f X • A, 

B, C, 

D. 


HC • LOAD “COMO : 
(BLPSC)” £l"&£:, X 0/7 

A £ RS-232C rK — h J: *) 

L\ 
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7 °P ? =7 U(T> □ - K LOAD 

• BLPSC li&m&ft-cnfSrfe. 


FP1 1 • X>) > 9^(7)T'<^ 7. 


SMC • PC88 tliflb. fcfcfb, 

R 3 >ti SAVE 

X% b. 

• LOAD/V “A FILE” X"< 'J7 7 
4 T'£ b. 

• /7A^P|ia-7 
SflTV'fcfcioEINMCa — 

• CLOAD 


MZ35 • PC3 <i: Ini L. 

LOAD SUB “ASUB” 

• T 4 7.9 _t <r> 

.h^-ro 9'9Mcomtz&mix-*t 

XX a 


X 1 Hu • R 3 


MB1 6 -PC88i[H]l:. tzt* L, 

-x 9 7. -r > > 3 

“ . BAS ” frrfltktib. 


IBM55 • MB16 tW]t. 

LOAD “ AFILE ” , R (i, RUN 
“AFILE” fcfflb. 


PC100 -^^IWJb. £i>\ feijg 
■?■ “ . BAS ” &. 


MSX • X h 

“ CAS” tlz 

«fc , #-fev h • T" — XX io'O — 

kl, mn -tbz tfrxz-b. 


□-K 


y°n SAVE 


: SAVE “ 1 : APILE " , A 

^id&pt 


lUgg I ^U:7 7 ^^t, y^e'jx>i*]^£7o-y t° • r'4 x^cr^ 

1-*. 

: 1 SAVE X>*t5efi, YJ't’7 • +>'<, 7r^^, A tYy 3 
> tfOMMTib -£> . 

2 BEt3^L*C^-6 t #t±, 

3 A*~T'> 3 >£1%fcLtzt£l±, 7X3f-o-r C, -m^L 

fci'££ti, • 3— TxA- 

- • 3- KT't&*rt-t-& £, '<4 + ') «fc X? • X-* 

— K^^oTli, TXA-— • =3— K 

(MERGE 4*^). 

4 K?>rr • #/J'*>#^(PC8*>»£- 

(i 1 ) £*&5£Lfcw tlz&Z. 


lo I ”'<* ■*• y • a - k y « y «c aeifi s n-c v ' s a s&awgi. 


*T 0!l : U C07 □ “EXAMPLE” 0^t7 □ 'V t' 

• tfcuz^n^-y^u ( cd— h"r«. 

list 

10 INPUT "A=";A 

20 IF A = 0 THEN GOTO 50 

30 PRINT A; ,,A 2 =";A A 2 

40 GOTO 10 

50 END 

Ok | 

save "2 J EXAMPLE” 

Ok| 

new 

load "2! EXAMPLE" 

Ok| 

list 

10 INPUT M A= H ;A 

20 IF A =* 0 THEN GOTO 50 

30 PRINT A; " A 2 ="jA a 2 

40 GOTO 10 

50 END 

Okl 


? m : LOAD, MERGE, SET, STORE, KEYlist 


APL SAVE “AFILE”, S7, 

Dl, VI 

• 4hSeJ1(±, -7 r T xo 7 h 

K7^7* • 4 c U 

JL — A • -f- >'<. 


TRSi SAVE “AFILE”/BAS 
HIMITU : 1, A 

7t^^, ( / ), 

NMy-rA /u£, '***7— K, 

( : ), K 7 ^ 7' • A *r 

> 3 > . 


CPM SAVE “AFILE”, A, P 
• mm ** £ Is] L . 3rio, P 3* r 
^ 3 > £7°0 ^*-7 Af£fi$<7>rt:aM£ 


M223 SAVE “1 : AFILE” 

Ztx&v— K1"& £ £Ii, OLD 
(-<£&. 

LIST “1 : AFILE ’ 

• K -7 T 7' l c v — x • x — K Tt& 

LOAD lz J; £. 


MZK • 


CBM DSAVE “AFILE”, DO 
ON V8 

7t>(^, K 7 'f 7* • 


STORE 

7a/7.A^i^f:46 LOCK, 
UNLOCK 


if8 2 


u-<;u 3 • Is] b. 


C180 SAVE AFILE . SR/1 
• V — X • r 7—'7<n££ SR £*g5e, 
a— K • X 7—7<F>£ £ IB £*&5e, 
£n&1-& t Pi7ji£ii1-&. 


M243 -M223<bls]b. 


MZB SAVE FD1 @ 1, “AFILE” 

K9>fr-t>^, x 
U — *7\ f^X^'vF -^'Ja- 
A • -7 T 4 >^%x. 


BUB 

• **£l5Jb. 

FM8 

• ^ 35c £ fs] t . K X 

T -r « 

• 0 . 

PSP 

SAVE DF1, “AFILE”, 


HIMITU, * 

*£5eMIti, 7rU^, 

'<^*7— K, (*). 

*C# S. 


PC8 


TRSu 

• TRS, tiwit. 


PC3 SAVE @ “AFILE”, 70, 
170 

• 70tT*'^ 170 

170 £®n&-f£ i, 70frJSt»£, 

no t i> £ i-^-cmrZ 

(@ ) <7)1&&/>*’C£ h. 


PC88 

• ^3 1£ 

m 

t 



N52 

• a *-r 

is 

3 

> £fi3 aE 

L tz 

£ £ 

Ii, JIS x 

— 

K 

-cteirtl- 

h. 

• K x 

T r • 7-> 

y < 

Sr 

£«& L *: 

£ £ 

ii. 

0 ^Jhae L 

tz 

- 

£ IZ t£ & 


PC6 

• &-&£ 

|s] 

L 




MLT SAVE “A : AFILE”, 
A | P 

• P U1%ffl-7 r 4 ^£ 
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y°n ? =7 U<F >)& M SAVE 


(gnm). LOAD, RUN(i-C'^ 
hfr, LIST, EDIT tiT'£ 

K-7-f *T • 


HC SAVE “B : TEST", A 
•A£olt&V'£, ^ 'J 

^--TZtih. V 3 >Kt, 

?0 • *7-fe.y h{Z-fe — 

£ (SAVE “CASO : ABC”, V). 

• SAVE “COMO : (BLPSC)” i 
~th t RS-232C h cr>1%m 
IT- (BLPSC) £ Ix^e L , -Tor 

• *< 7 ) J: 9 CM^S. 

LIST “B : TEST. ASC" 

7X A-— SAVE 
X>. V “0 ^-7 

Se T <£> . 


^LTFT'li “ . BAS”tH+< . 


IBM55 • MB16 &*>, A 

tlh. 


PC100 • MB16 £ fS] L . 


MSX SAVE “ CAS : AFILE ” 


fpii • Kx>r -r&z'gtt&i-z t 


SMC SAVE “B : AFILE”, % 

s/iTKux, JjifiTKux. 

• /A 7x 

/P£Lftt-£> 

o x h 4*v'^-C'-fe— 

-rztih. /c^ott z£teM<7)=i 

K il5l &. 

• TtyjfiT Kuxi J|H£T K u x t-*& 

ij ft'# 

*'\ BASIC -7°o A £ [h]B#{C 


MZ35 -*:*:£|WJb. 

STORE 

• 7°o /7A$:7X^-l^tf-f 
X 


XI Hu • FPll tmt. 


MB1 6 • P^ry 3 >{:J; i)7 T 

4 'l"tt£ic3S$ Jl£. 

3 >&'£«&£ tl -7 y 4 fi* 8 


iz-7 


7 T -i Jls&glW. NAME 


: NAME “ AFILE ” AS “ BFILE ” 

I B7 T ^^ 

: 7*4 • 7 7^h^i jsrggsei-s. 

tt« : 1 107 7 >f sis££ikcr>m-7 r A 

2 IQ-7 7 'f f-( X^7 

m-rrJ JisZli, ffl— T 4 b±lzft&L X lift b 

£v\ 

3 CX>X*7> V*m'fT-th £, 7 7^^^^'), ^X>7 

t >f x ^±<ota:a<iag^fei-v'. 

m iE • 11 a > AFILE. BAS <n .BAS i^flCifc 0 , 

ttJnp * 7r 4 i\s%»<r>— $&X‘hZ>. 


~fU V =7 : KYU-f lC^UTAdi*^tf7>fef^, T7WJb££- 

SHIN-f lC^A-5. 

100 OPEN "KYU-fAS #1 

110 FIELD #1,15 AS N*,5 AS S* 

120 INPUT "NAME" ; 1$ 

130 IF I %= " E " THEN 190 
140 LSET N*=I* 

1 50 I NPUT " YOK I NZ ANDAKA " ; A* 

160 RSET S*=A* 

170 PUT #1 
180 SOTO 120 

190 LPRINT " ** YOKIN ZANDAKA **" 

200 FOR 1=1 TO LOF ( 1 ) 

210 SET #1,1 

220 LPRINT N*;SS;"R" 

230 NEXT 

240 NAME "KYU-f" AS "SHIN-f" 

250 CLOSE: END 

a n m 

**. YOKIN ZANDAKA ** 


aka i 

10000R 

okuda 

1200R 

nakaj ima 

5000R 

fuwa 

15000R 

t akeuch i 

5030R 

h i no 

7500R 

yosh i zawa 

3200 OR 

Y . nakamura 

10000R 


#03 : KILL, SET 
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APL RENAME “AFILE”, 
“BFILE” 

|H]b. tzt* L, ^C 7 ) 3 - 7 > 
K(±^r7 T A >V&*m\lT4 X^ 
"/ L _ht- £> Z> L &* v-». £. 

fz , ■T’ 4 X^y h _LX)^t!cX)fH]— * 
77 ^ /b&tciov'T z<n 3-7> K 


TRSi RENAME “AFILE” TO 
“BFILE” 

fcfc fb, 

Kii DOS x-x> KT, DOS-t — 

h. 


CPM • £ IhJ b . 


M223 RENAME 1 : AFILE, , 

1 : BFILE 

• mm* trsi t mt. 

• i : t Kx-rro. 

• T — x°> 4>X)X 7 T 


MZK RENAME FD1@1, “AF”, 
“BF” 

• K X T X* £ , XU-7-f^X7 

•y l • K?>rrM-*#5£-c£a 

• O -y 7?tlT^I)7 7 T MZl*m 

frc£*rv'. 


CBM RENAME 1, “AF” TO 
“BF” ON 7 

• T — x°> rpcr>~7 T A 

• mntt im-e 

L, 

*&Se 1-£>. anfri"* £%ti*?ti, 

0 , 

^ 60 £ # (i # y X f < < £ . 


PC 8 * 4vfc#!Rb 


TRSn RENAME “AFILE” AS 
“BFILE” 

• ** £ fBJL . 


PC3 RNAME “AF, SHARP : 
Al”, “BF” 

• IBX74 JWCjKV a— -f-7 
*>b- 

#f-7 7 >f 'bt'ti, t> L Jn L *£ & 
»J£S;K.6. 


IF 82 NAME “2 : AF” AS 
“2 : BF” 

• IB 7 7 4 -2> K X 'f '7'** 1 X> 

fia»<JO££ 


<t I»J b . 


C180 RENAME A . B, D . B 
• TRSi £[ 5 ]b. tzt* L, MSIJX>^ 


M243 • M223 t |W] b. 


MZB • MZK ^ |5| b . 


BUB • *X £ [WJ b . 


FM 8 -^tlnjb. 


PSP RENAME “FD1”, “AF”, 
“BF” 

• FD1 ( K7^7m IB 7 7 'f 
;l£ (AF) £ *<T)y*x*7— K, #r 
7 7 T 'b£ (BF) £ ^^'“X7- 
Kx>HIM*C4t^t-2). ^ 4 X7-Kli 
ifc Siam* <>*■&■? 
(i*H±*-£<L|sJb. 


PC 88 • * £ £ I3J b . 


N52 • K7>fX#t^f«&ti> 

£ 0 X'£) & . 

Pi-^t i Is] b#:T'^ It niiT^- b ^ 


7 7 -f Jl'&’g.W NAME 


V\ 


pc6 -ttt mt. K7^rt 

mlt • iF8 2 t mt. Y^-rr 

No. <i A, B, C, D. 

HC -tttWt. 

FP1 1 • IF 82 tmt. fcfcfU Y 

v 4 ~r & £ &■&-$- st, K7^r 
0 

• 7 T >f ;u^c7)gtju PACKO : ~ 
PACK7 : £f+t+<2>.L tCj: »), 

ram ^°-v 

SMC REN “A FILE" TO 
“BFILE” 

M235 RNAME AFILE, BFILE 
• Mffi.lt *ic t |BJ t . 

XI Hu • 7 7 'f • T'^f X 9 IJ 7° 

* £ itffl&'f- & , DEVICES 

Tif^L fc & CTUzbZ. 

MB16 •*■*£ mt. 

IBM55 • K7 4 *T • 

v>. 

PC100 • PC100 UFgJB 7*4 u ? h 

U tftit £ i o/><, NAME (i ti ^ > 
h • 7^4 u 7 b ij 
$}. 7r>f 

L tz T'fr 7 w £ . 

MSX — 




7 7 KILL 


KILL “AFILE” 

: «SU7T'f«'i*i+i. 

(#£&*£tjhti, SET^TiTi.*) 

2 IH±ta7r>( /Kit-y>$ntv>tli4-b^v' 

3 t'fei-v^r T >w£r?8**t'&^£lEflJT , ib5. 


*T $J : “AFILE” 

SrfliJBrrs. 



files 

testl . 1 

0 k| 

kill"AFILE" 

0 k| 

files 

test 2 . 

1 

AFILE . 1 

testl . 1 

test 2 . 

1 



Ok| 


#BS : SET, SAVE 
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^rJb 


APL DELETE AFILE 

• $S££{i*££[v 5 H:. 


TRSi 

• *££Ii5jL:. 

CPM 

• 4;* i r»J t . 

M223 

DELETE AFILE 

• vWirT'^ h~7 t ' i 

APU CO b CO <7) <&• . Hfr<7H><7)& 


i»*t 4 ^CU -t— KT 
DELETE K£»T. 

KILL ffr-fr(igg*fe£m* 

V * £j jfl & . 

n >vtE^o*ams 7 T 4 


MZK DELETE “AFILE” 

CBM SCRATCH "AFILE" 

PC 8 

• *£#Ufl 

TRSn 

• *££ 15511 :. 

PC3 

• *££|nJL. 

IF 82 

• * x t m t . 

L"< JU 3 

• * £ £ rsj t . 

Cl 80 
AFIL 
DELI 

• CLI -t — FT' DELETE 
E. Yd + 

STE “AFILE. DT/ 1 ”. 

M243 

• M 223 £ IS) t . 

MZB 

• MZK £ IWJ L. 

BUB 

• *££|hJL. 


fms • * £ tmt. 

• /<*70L • #-fe -y V^CO-7 T 'i 


4 1 T ^ I) . 


PSP PURGE# “FDi”, 
“AFILE” 

• 7 7 UHM, 7 tUHW 


PC 88 

# 

IY 

InJL. 

N52 

• *££ 

IWJL. 

PC 6 


-7'#^- 1 #tt b ft 

• 2 ) . 



KILL “2 

: DATA 



MLT • Lt, 

SAVE SAVE “AFILE”, P 
£ L fc^ 7 T >f 
A*, bX'£ Z>. 

• SAVE 


HC KILL “B : TEST” 

• B(i K 9 >fr#t (A, B, C, D) 

• ( 2 £>(i*££| 5 ]b. 


FP1 1 • 7r >f 

S^ntF 7 >( 

7*0 «:i5Elfc:ii:i*5. 

• 7*4 X RAM, ROM y 'f 7 


SMC ERA “AFILE” 
• I$H&fi*££|Wib. 


MZ35 • *£ £ W] t . L> r" >f x 
v^H#(i, KILLALL AO. 


xi Hu -CAS : iz*fr LXi±$&rf~c 


MB1 6 -MLT^IhJL. x^t 
> i/ a > CO “C<* &' v - *. 


IBM55 -^pa2t±irv>. 


KILL 




• 3 XitB&t'l &v\ 


PC100 • «:tiwil;, *7 T 

^^CIi7^uK • # — K & 1«£ 
*. < 2 > . 


Msx — 


set 


: SET 1 , “ R ” 

: ygfcLtz K^>rr, ^' 777 , *774 ;uc^'I4£h&5e, £*:iifs$i& 
£Tr7 . 

: 1 7gtfOS|$r(i, K7^7'M, 177^^, £*=«*" 7 

7 4 ” X-h h . 

2 Hog<o3l3&(i, 

%<n&mt'k<n t ft ') . 

(a) “ R " •■• IJ — K -T7;-7>f b (#£&<MtfE2). 

(b) “ P"-7^ • 7o-r? b(ib£&^it). 

(c) i-;u • x b ij > 7£fzl£ “ R ” “ P ” LWco^---M1$£f#l>£ 

i~ <2> . 

4 7 7 'f ;u££*£5eL/.:*I^, 4-<o-7 T 4 

ft, [ 5 ] br'^f ^'rvY ^<n\£-h-<n~7 7 4 L&vl 

5 7 7 4 ^& J $£ J fe < £Ltzm&, U'&Z<r>-7 T 4 

Lxmtmte&mMt**. 

6 “ P ” zmfc-fz t, PRINT#, PUT, WRITE# tcmWZih 

&mi¥t i gi±£ tu £?z, 7t^kt) kill, rename 

^ 4* v ' c7) *c, 7 7 4 ;u£ ftciiii - £ <oc: ffti^ij -eft 2 > . 

7 “R M £E£SE-f& £:, fc]£&te3fc*m L £tr;c. 

ILL < iiA* < ffi7ft^*‘fll©3& < T^ffifyt u ibS. 


■ 7 °p +f =? A$lj : “afile” KzMt££-f££U, -*n«-*wrr*. 
10 SET " a-f i 1 e " , "R" 

20 PRINT " a 1 1 r i bu t e= " ; ATTR$ < " a-f i le") 
30 SET "a-f i 1 e" , "A" 

40 PRINT "attribute^ ;ATTR*<"a-f i 1 e " ) 
50 SET "a-f i 1 e " , "P" 

60 PRINT "attr i bute=" ;ATTR*< "a-f i 1 e" ) 
70 END 


n 'i=r ® J 

attribu te=R 
attribu te= 
attribute= P 


#fig : ATTR$ 
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tzwh 



APL LOCK “afile”, SI, D2, 

U3 

■X0 7 M #-e, K747*2#, 

tK 0 -x — A 3 #<7)T'>f ^7 7 b 4 1 
c7) “afile” h . 

•o 7 ^ftf;7 7 4^li, tli 
fcliSiJRfej&'T'^fcV'. 

• ij 9 o 7"^^<50H#(C, u.y?£ft 
f:7 7 4^(:li, (*)£'4Wftft 
&. 

• jpfcizti. UNLOCK 


TRSi ©ATT RIB, — .“afile”. — . 
(param, param) 
©VERIFY, — .ON 

• ©(i, “afile ’cO'^X *7 — K, ft ■& 
^ii^7 7-Ki:U7’D7? b 

• param <7>|*T# (**»)& L, ^B&’ST) 
I : T< P? b IJ«^U§ft*< 

1-&. 

ACC = “namel ” : T 7 -te X • '*X 
7 — K $T “namel” <b T" -2) . 
UPD = “name2” : T "/ ~T ' 7"' — b 
• /\'X7 — K£r“name2” i: "T 
&. 

PROT = level : T7-feX • 7'nf 
? b * level Ct 2>. 

• level COPlTF 
KILL : f&IHR* L. 

RENAME : 7 r 4 

^ITrfi 

'em. 

WRITE : I^tUL, 

READ : Ift^tRL, ^Tr(i"It^. 
EXEC : 

•©li, 'J — Y • T~7 9 • 7 4 b £ 
»K5-r&tz«, 
VERIFY OFF. 


CPM 


M223 CHATR, — ,n : “AFILE”/P 

•n(i K74 7'#l, 2, 3<7>ftfcX\ 


Wffl&Nfii K7 4 ~7 #0. 

PliitftnL J: 7 t-tzm'&X&Z. 
p : ✓ -?— -T'T' > b * 7 7 4 Hs. 

A : «14«M5Slt. 

r : 

W: 

-ft Mi, cLnt^*etT7 . 


MZK LOCK FD1 @2, “afile” 

• K 7 4 7' 1 #, ,K U x- — A 2 #C0 
T'V Z.'r v b _L^ “afile” 

"t* -2) . 

•f-fl/^b'J a ••/ ^ 

£ ftfc7 T 4 zutli, 
ft 2> . 

• W-Ktii UNLOCK 

CBM 

- 

PC 8 


TRSu 

• TRS, tffl t. 

PC3 

LOCK “afile, BCD” 

•-fja 

— A “BCD” <OT'4 X-Jr -y 

V±cr> 

“afile” 

• htu apl tmt. 

IF 82 


l*"Ols3 

— 

C180 

• OPEN# tt'7 7 4 



• CLI CO SETATR T'7 7 4 '1^14 

CO^^nT. 

M243 

• M223 tmt. 

MZB 

• MZK t m t. 

BUB 

• ^l5Ci:f^L. fc^TL, 

“RP”, 


FM 8 

— 
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77^ ^JKttCZJttje t mm SET 


PSP 


MSX — 


PC88 [Hjb. 


N52 

<£> £> . 


PC6 

— 


MLT 

• i&Ma&L. Utz 


|7t 4 
£#H8. 

. SAVE 

HC 

- 



FP1 1 SET #1, “R” 


• IhaeL/:^'7 7t, 
te£ifcJe£fctif»Krr£. 
ru*tf 

• 7 7 >fW^Lm, 7 
r >f ;u£ ? o — xirh t mn.it fm 


SMC • 7 r >f CP/ 

M -t— Kt'^Tl &. 


MZ35 LOCK “AFILE” 

fts, 7 T T 
h . 

UNLOCK “AFILE" 

• -7 r 4 JMizmwmv&z tu> . 


XI Hu • 1 ( c) lt-t-JU • 

b >J > r< 50 ^. 

• #»3 


MB16 


IBM55 — 


PC100 — 


tZ'yh 


V^>| '3: MOUNT 


Mxt : MOUNT l 

i i 

s»&»r 

:f<x + 7K«')-K/70 SrUTtgcTi. 

«» : i ^?n^K7^7'^C7)t'>f XTy h cr>%%^ tB L , 

-C# & <t 7 l:t2>. 

2 K7>frtf^tB&tSi, £rSI$<t> K7>f rcoi't 1 
£^7 . 

3 xT>y b <T>~7 T T & LI£‘) fr&tUX, =*m<n Sfi 

/ y-t-x£m*L^> h t£. U, * 

rfrtC & >) fi''jhtl(£' “bad allocation error” t £: 0 "7 >r / > b £ 

tl&V'. 


m '+t m : “TEST” &a- h'-t&tcfttz, 

Okl 

load "is TEST" 

Disk not mountedl 
Okl 

mount 1 
0k| 

load 11 1 ! TEST" 

0k| 


remove 

Ckfi 


#fiB : REMOVE, OPEN 
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APL • i»a& L. Tj *.<r-yV 
IP K?-f Tlz AoTV'-C, x*.T 
ON £: > h 4* 


TRSi 

— 

CPM 

•*-%£ wit. 

CO - 

5 

• BASIC ^e— Vizii^b 
b4*t*(3$r&. 

MZK • m ^ £ L . * 9 • f"4 

7*1: -fe y b Lt 

fd £^fnf ft(f, > b 4**J 

\Zt£h. 

CBM 

- 

PC 8 


TRSn 

— 

PC3 • mmtcl. 7*4 XT -y b 

£ K^>f -rtc-b-y h lx, mm* 
a ntuf, 

IF 82 • 7 r 4 'HFUTY £ o — 

Kit, 9 (Program End) 

3TT-£ A*-f &. 

i"<JU3 -PC3tWJt. 

C180 

— 9 
b. 

• A^HJb. &£>% tu 
• r7-^> K MO Tftffl l> T# 
K7/ 

M243 

• M223 t Wl L . 

MZB 

• L. 


£ ON, -t* X ;? -T'-f X T-y b £ 
-fe ••/ b , MZ-80B ON 1C 

-ttuz, -r'j's vtmizzz. 


BUB — 


FM8 • 3 tndb. 


PSP • Mlk&L. OA-DISK 
BASIC c^i&frfrtta £ o fzf£f, 
*y> bMmiztz. 


PC88 Nss BASIC 

X — K Tii 


N52 • APL ^ IWJ L. 


PC6 — 


MLT • PC3 tWlt. tzttt, T 

RESET £fr47&V'£:, “DISK 
full or I/O error” tT'lB ■?> CL t />'' 
ifa %> . 


HC -M&L, HC-20<50 T'^f 
7 7’^fr f" bit4 ^ONCLt 
K7/ -refill i ON CL, 

HC- 20^0 '€?/££ ON (L*f 4 


FP1 1 

• PC3 t IS] b. 

SMC DISK RESET “B : ” 

ff b^ 

x\ m & ?a^ $■ *>fr 7 . 

MZ35 

• OPEN #M. 

XI Hu 

- 

MB1 6 

• PC3 £Wlt. 

IBM55 

• PC3 <fe 1WJ b . 

PC100 

• PC88 tWlt. 

MSX 

- 
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»J A-:7"3; REMOVE 


: REMOVE 1 

i i 

I T4 K'r v Y Z 

&. 

2 &-tht, -f^XCT) K7 4 -rizot'T 1 . 

*TLS:lt*iff£:^£:v>. (, L&& t T* xXy Y *m tXtt 
1 C. t frfo h . 


m ft m : UA-7UT^t^ 7^ h^Uffit. 

0k| 

load "1 s TEST" 

Disk not mounted! 

Oki 

mount 1 
0k| 

load "i sTEST" 

0k| 


remove 1 
0k| 


#fis : mount 


VLs —7 


APL 7 r >f /K7)T 

? -t x 4* *c&* tt tut\ t'otir 
7'£‘ Jft ») * 


TRSi 

- 

CPM RESET t 

WU*&z.^iiZ. 

M223 

X 7 
-O' 

&. 

• mm&t. ready 

r 4 ? o — X£ *i 

h u A-rtit#) 

MZK 

• M223 £ IWJ t . 

CBM 

• M223 tmt. 

PC 8 


TRS„ 

• M223i ffl t. 

PC3 

• M223 £ [Hj t . 

IF 82 

— 

• M223 t III L . 

C180 RELEASE 1 

• **t mt. 7 *u -7 • K 

RE &. 

M243 

• M223 tmt. 

MZB 

• M223 £ \s] t . 

BUB 

— 

FM 8 

• M223 tmt. 

PSP 

— 

PC 88 

^e— 

• N88 basic 

VX'&$htfiiz?ifrtiz> . 


N52 -M223 i:IoJb. 


PC6 — 


MLT • & L. tzt* L, 

RESET ttfXZ 

& 'J&T ff 9 S , 

# £ £ j&Gft-r s . 


HC RESET “A : ” 

• tZfeLtzx'4 KXvY <nW£ih& 
Z*imzXZ>. fzti L, RESET 
(if'f 

4* It tlt£& h> & v v. 


FP1 1 

• M223 tmt. 


SMC 

- 


MZ35 

• M223 tmt. 


XI Hu — 

MB1 6 

• M223 tmt. 


IBM55 

• M223 tmt. 


PC 100 

• pcss tmt. 


MSX 

- 



yrmSife MAXFILE 


: MAXFILE 4 

'<77 Tt 

7r 4 >K7>&£*&5£1-*. 

* 1 -o^/<77tW*I$I±, 320 '<4 K '<77T*fc£:k£ 

< i" & £ , |5]P#(C^ < £/l<7)7 r 4 — 7“>*C# a*'', * 

tlf'lfSX: ') $*^-9 . 

2 ~ <7>3:£f£9 HU, '<77T«k«i3»z|»e$ii-cvi&. 

t, -t^xcn^mz 7 ') T2tl&cr>X*&M. 

4 MAXFILE n ^ ~t" -2> <h , 7 7 >f^#tl± #1, #2, — , #n £ *C 

f£oT, nA f 4<7)i^ 77^^ 

V' £ Lt: i> #5 <7)7 T 4 

5 ro/7A + t(.t'7.l)^t, *£*'<••/ 7 r£fc<7)^!i9c60&v>f$ 

7o t £ (C 1 H*IJT'*> & . 

m=E • n ai >^.tw< f-m°/7Ai :, /^i) •a*7M:mLWlt4t 

* £<t>, h 


*r fl»J : 4 007 W7U^l^t#lC OPEN MAX 
FILE4 

>LIST 

10 OPEN "0" j 4? "AFILE: A1 " 
20 CLOSE 
30 END 
. >RIJN 

ERROR 220 IN LINE 10 

>5 MAXLILE 4 

>RUN 

READY 


#HB ; OPEN, CLOSE 
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"WOT* • 


APL MAXFILES 4 

• *: /w L , 

ztUi DOS =i-?> K Xr 

<*>&. 7 

7 4 /Hi«bU6ti*1£T\ 

TRSi 

x XT AfcfWl- ATji" 

& . 7 t 4 /H***151W £ T-. 

CPM 

~7 t 'i )Hi Ax^:15 IW ^ 

X\ 


M223 

7 t* 'f )Ki 8 IWWT.aEb 

(-fi 


MZK 

7 T 4 /MilOflAl-Cgl^. 

a x * )U 

• -J-w< l, li 1 *»£> 127. 

CBM 

77^f )L(il0flilT'®I5E. 

a x * )L 

• 7 7 “f 1 ** 

255. 


PC 8 

TRS, £ IWJ L. 

TRSn • 

TRSi ifsJL. 

PC3 


IF 82 

TRS, £|SJl:. 

\s^)Vi 

7r>f ;K±**161WS-C. 

ixjklltjJi, J- — 7-' ( ') T ' ( • 7‘U 

/7A CONFIG XrttLhtlh. 

Cl 80 

X XT AtJ*T 

-6. 7 T 

4 /u*#bt 255 11*1 £ r-. 

M243 

M223 

MZB 

MZK ^rsJL. 

BUB 

TRS, £|sjl;. 

FM 8 

TRS, tmt. 

PSP 

CBM t NL. 


PC 88 

• TRS, tmt. 

N52 

• TRS,, fcWt. 

PC 6 

— 

MLT 

• TRS, tmt. 

HC 

•CPM^IhJL. tztS L, 

— ?(T)'<"/ 7 r <7)^: ^ £ Ji 143 '< 

>f 

FP1 1 

MOUNT 4 


NEW ALL f £ 
<7)/<-y 7rt(i 0 *z«Ke$il-C^ 

6. 


SMC • 7 r >f >H±0**M27I*3 “C 


MZ35 ■ 7 7^HiSi7iit. 


XI Hu • 7r 4 ^{i^l510^-C. 
ttz, itafifjfcHi 1 i:4:S. 


MB16 • ^^c255. 


IBM55 • OPEN *3lffB#<7)y * ') 
<7)*£ m*-C255. 


PC100 • BASIC c7)tefi(jB#U, /F ; 

-15*;**, 


MSX MAXFILES = 4 

• 21<7)3S:^^7 HU, '<7 7r*Scti 1 




- 172 — 


7 T 4 )is<D*-7°>3: OPEN 


^5ct : OPEN “ APILE ” FOR INPUT AS 

#5 1 J 

1 i 

I 7rU^t-7'>L, t&. 

4$^ : 1 INPUT K OUTPUT, APPEND t W< 

zt&-C£&. h*<nj&Mt±#:<7)£ is ») . 

(a) INPUT •••• 7 7 A M±-$"Z'\,z 3b h 7 7 A ;UT\ ,-K4 > 9 2) li7 

(b) OUTPUT---- ifci7r >f >^(±7r^ ;kjo#j 

(c) APPEND — 7 7 A 7r^f ;ut', ;K>f > 9 Ii7 

7 A >\scr>j&fr •) cr>iZtmiz&frti&. 

2 7>fA-7 7 U^, FOR INPUT 6 

3 7 7^^!^^, t-f OPEN 

v>. 

4 X T A jZ *) “How many files?” -£> #'\ 

£ A* Ltz$kti<7 7 A ^& j 5<F>±m<r>m.X'hz>. 

2 ’*’ -f > 7 £ fc y>CO-5ty/ir >j;i- i,cr>. z CT>H!j'?li t'Z <7) U 3 

— V£W.<\\, *•!&(- L Tv '&7b*£>r<1\ 


7°n^-7A^ij : t^-od-afile" ^u, 

10 PRINT "make & open AFILE" :0PEN "AFILE" FOR OUTPUT AS #5 
20 PRINT #5> "TEST PROGRAM" 

30 PRINT "close AFILE" :CL0SE 5 

40 PRINT "open AFILE": OPEN "AFILE" FOR INPUT AS #6 

50 INPUT #6,E$ 

60 PRINT E* 

70 PRINT "close AFILE": CLOSE 6 
80 END 


m ft m 

make & open AFILE 
close AFILE 
open AFILE 
TEST PROGRAM 
close AFILE 


#fig : CREATE, CLOSE, XOPEN, WOPEN 


7 r-yy 


APL D$ =CHR$ (4) : PRINT 
D $ ; “OPEN AFILE” 


TRS 1 OPEN “ I ", 5 , “AFILE” 
• APPEND "6— K(±£v'. 
•7>fA-7r>f “I” 

£ “R” tirh. 


CPM OPEN “I”, #5, “AFILE” 
• APPEND ^ — Kf±£rv\ 


M223 OPEN “AFILE” FOR 
INPUT AS FILE 5 
• APPEND ^ — 

lzi&z_&<7)-e FOR INPUT tiv* 


MZK - '> — 7- > is 7 ' 7 7 J 

;mMWOPEN3v>K, 7 
> ^A - 7 7 A >\s<F>iMj& XOPEN 

r3-v»> 


CBM DOPEN #5, “AFILE” 

• APPEND f± APPEND =7-^> K 


PC8 • 4:-*# HU. 


TRSu OPEN “D”, 5, “AFILE”, 
64 

• APPEND 

• 7 > ^A • 7rUUiU3-KI 


PC3 OPEN “I”, 5, “AFILE" 
• -7 > 9 * A • 7 r A “I” £ 

“R” t-f&. 


•F8 • A^ACtmt. 


OPEN “I", # 5 , “AFILE” 
• APPEND ^ — 


C180 OPEN #5 : “AFILE”, 


INPUT 

7 7 A CREATE * 

SCRATCH t/<77rrt^f84t 

£ - 6 . 


M243 -M223 £|W]b. 

7 7 A KfcftttSd 

£fc, £gfE£, T -- 4 

-s. 


MZB 

• MZKblHjb. 

BUB 

• *££ lujb. 


FM8 • TRS, £|^b. 

• '<7 r )V • #-t v h 
T--7°>T'^ * (BUBO : ). 

• "\"<r>\Xb ») k“A” 

> K U'H. 


PSP OPEN # “FD1”, 
“AFILE”, 5, “I” 

• -t— ?£ 

? 'JTLtfl ifili" N -t — K*<*> 

&. 


PC88 • A^AC i fnj b . 


N52 • 7 > ^ A ’ 7 7 A )V(ni)k 

&lt “FOR -t — K” fc&n&L&tt 
tll £ £: £> &.* v ' . £ tL fz 

7 7 A )V& £ti, 
£ n tz ?,wi<7)7 7 A i o 

,-K>f > ^(i7 T A )V<r>\T)>sh> 
^Ff&4 C^H> 
T, 7r 4 ;u#-^<7)_hRR{il5T'gI 


PC6 -^^lifsib. 


MLT • *60 J: 7 

OPEN -t— K2, C#] 7 7 ^W, 


7Td7K7)d‘ — 7°>7L OPEN 77< , t 


7 T 4 >^Z\ C , P 3— KSD 
■t— K 2 

“I” WM^^v r 4 /KcttLt, A 

“O ” ift7 r 4 iPt- t>\ L T , fH 
Il'&MtttfiJ E. 

“R” 7 > ?’A • 7r 4 ;u{-^L*C, 


P 7 — Ki£(± 


HC 

■ U"<;U 3 t In] L . I — K 

It 

0 X— K(± 3 i} 7 jtp>E 

xhh. 



FPl 1 

• AP 

PEND -t— Ktiirv'. 

• man it*', 

MOUNT 

-tz>. 




SMC OPEN #5, “DSK : 
AFILE", 256 

• 7 > ^A • 7 T ^^t-7 p >t 

£. 

• ROM '< >y 7\z h. 

• ffl&Wlklti' 7- KMT', Id* * 
^ 16384 £ T'^-tiG HI . 

OPEN/I #5, “DSK : A FILE" 
OPEN/O #5, “DSK : AFILE” 
OPEN/R #5, “DSK : AFILE” 
OPEN/S #5, “DSK : AFILE" 

• /I (i, ASCII W&?r’7 r T 
"T — 7 > P ^ ;u • ~7 t 4 

Co t' — 9 fctifcA'jhtj. 

• /O It, ASCIIM5£-Ct'—?£^ — 

V > P -v /u • 7 T S t* 3AiA 

• /R (±, r 4 ^ 

£ tl “C v ' & P — *r> is * ft? • 7 r 
4 Co t'— ? £i7c^3AL\ 

• /S fi, * £ 

x — ^ P P-WP • 7r^ JPlzflffi 
3Ati*. 

• f-f x 


MZ35 • PC3 i: I?] L. 


XI Hu OPEN “I", #1, “AFILE” 


• 1 #0*>9l*fc(i, 

O : x — ^ p x v • 7 r ^ 
<x>##fcbL 

A : -t* Ti~ & & 7 r >f >»u^3t/JP 
R :7>fA-7 7 ^^ 

• x£(±, 

key: * — ?K— K 

CRT : t' ^ x 7° p -f •tut' 
SCR: r'4 X7°u 4 • rut' 
LPT : -r i )> 9 
CAS : i] -fe y h 

o : ~ 3 : 7 o y b° • t' >f x 9 
MEM : /7 7 1 V 7 • 9 X') 
EMM 0 I -EMM 9 : ^ >3 

•A, R (i CAS *. 


MB1 6 • MLT tmt. £ fc7r 

>f LEN=P 7 — K 

£ Uw 7— bti 

h, 

• X&li, 

KYBD : * — d<— K 
SCRN : X ? '3 — > 

LPTn l X') > 9, n (i 1 , 2, 3 
A : — D : ; - 7 a 7 t° ■ 'f -f X7 
COMn I RS-232C d?— h , n (±, 
1, 2, 3, 4. 


IBM55 • W<k 2 , 4 £*& < 7 P 
A • 7 7 T 'KJOif FOR -t — K 
l±S»&T£ &. 

• MB16 £ fflt 

• 7r ^ 1 A'k255tX\ 

• rP<>f x£(i MB16 tmtX*>& 
t><, T 4 X 7 It D *C < , ill! d? 
— h #-^(i 1 £ tz It 2 Xh h . 


PCI 00 • “How many files” X)fm 

• T'<>( x£(i, 

A : & tz ItB : 7o 7 h <, 7 , -f x ^ 
C : RAM 7* 4 x ^ 

D : itzlt E : KfT x ^ 
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7 r-yy 


COMl I RS-232C tf— h 
KYBD : ^ — ?K— K 
LPT1 : 7° >3 > ^ 

SCRN : X7'3-> 


MSX OPEN “t7<T x£ : 

~7 7 4 FOR ^e— K AS 

77 d’ 

■ f^xcii, ',kx>\)X>ii<hZ>. 
CAS : 7&-fe •/ h 
CRT I CRT T'4 X7°u >f 
GRP : r=7-7 4 7 9 • 7.9 >3— > 
LPT : 7° >3 > ^ 

• 7 > ^‘A -77^ 
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77-fiU • ^P— X3t CLOSE 

: CLOSE #5, #6 

u u 
I — II I 

Si : 7T'f;^;o-X L, 7 7^^^1)811 

«»:i 7 T 4 & £ , 'i~'<X <7)~7 T 4 /Is & 7 & — X~i~ £> 

2 CLOSE 

tL*dT^rfeirv\ 


7n : t>7-<ju“apile" s-ftsu, tsiis, at*aiT. 

10 PRINT "make & open AFILE": OPEN "AFILE" FOR OUTPUT AS #5 
20 PRINT #5; "TEST PROGRAM" 

30 PRINT "close AFILE" :CL0SE 5 

40 PRINT "open AFILE" .’OPEN "AFILE" FOR INPUT AS #6 

50 INPUT #6,E* 

60 PRINT E* 

70 PRINT "close AFILE": CLOSE 6 
80 END 


make & open AFILE 
close AFILE 
open AFILE 
TEST PROGRAM 
close AFILE 


m : open 


xo-x 


APL D $ =CHR $ ( 4 ) : 

PRINT D $ ; “CLOSE AFILE” 


TRSi 

CLOSE 1, 2 

• END, 

NEW, RUN, MERGE, 

EDIT, CLEAR 

t^T^)77 4 ;u£ ;c-Xtl>. 

CPM 

• *Xtmt. 

M223 

CLOSE 1 

MZK 

CLOSE #1 

CBM 

DCLOSE #1 

PC 8 


• END, 

NEW 

X<F>-7 T T ? o — XI 

TRSn 

• TRSi £|W|b. 

PC3 

CLOSE 1, 2 

• LOAD, CHAIN, MERGE, NEW 

£ ? o 

— x-th. 

IF 82 

• * £ £ IHJ t . 

U' 

- *xtmt. 

C180 

CLOSE #1 

M243 

• M223 tmt. 

MZB 

• MZK t mt. 

BUB 

• *xtmt. 

FM 8 

CLOSE #1, #2 

• END ffe-frti g®m(C-t-<Tc7)7 
r -T ? d — xi 1 6 . 


PSP CLOSE #1, 2 


PC 88 Wit. 


N52 

• **tra t. 

PC 6 

• *£l£[H]b. 

MLT 

• *-xtmt. 

HC 

• *:fc£|ljb. 

FP1 1 

• *:£<>: |W]b. 

SMC 

• *xtmt. 

MZ35 


xi Hu • *X:tmt. £Jb\ 

NEW, RUN, LOAD<7)<h£L1“ 
*<x<?>-7t 4 >utm t^tlb. 

MB1 6 

• «c£|wjb. 


IBM55 -tttmt. &**>*, 


END, NEW, RESET, SYSTEM, 
R t7"y 3 >%t<F> RUN jfe-frfi, 
o — XT' h . 

T'-f X^y h • 7 T >f /l' 

£ ? o — XL, 

r RESET 


PC100 

• IBM55 £ ISJ b. 

MSX 

• ^35Ct|WIL. 


7-f-^KJ FIELD 


: FIELD #2, 50 AS El$ , 20 AS E2$ 

I I 


* 7 > • 77 4 /u • '<-y 7 r >r — ;u 

: 1 7 > T'A • T 7-feX • 7 T >f J\sCT>mfcg: l) l' =3— Kc0256^<^ h 

£, -7 4— /uKr«!:tc#gi]-r& <£ 7 

2 #Jtf><7)3l$cl± 1 ~15£T<50^&-e, 

5 gi-& (|!S$kDSKI$ £1£-9 £ ^liO 

3 a >•?*(, ) c7)^(c#7 4 -;u K<7)S$ ('"M h ) £®< . 

4 7 4 K t L -C*&5g L *««[«:, LET 3;<7);£ffl, INPUT 
3C, READ^&t''CT£o't(±£:b>£:^. 

5 M £ LX “Bjft" Tm L tils =i— Y'Mf&ti, VITX> <t ■) (c &* 6 . 


7 4 — ;u K 7 ^ — ;u K 


50'<T h 

20^<T h 

(186^M h ) 



U3-F (256^M h ) 

6 77fA- 7 t ^ ^ f H L L 4- It illi'4- b ^ . 

: "Ijgft — 3<7>u a- K*>&£7&‘H45£3n. -&?*, 6 Z t . 0UT2H*. 

2I RAM 7 7^^ y-t ■;_LUfl2*l&-7T'f t£i«* o 7T t , T*— * it 

Z> L <r> l <f> Z> . &&< 7 > 7 o rvA|lll-C' 7 '-^?:i‘;ffli-- 2 >^ £: t,tH. 


37°p ^-7A0IJ : KYU-f IC&i!'jcbffi^$U^<DpM^£'7-i' — Jb KXt, 
J g-n j E : Tll5yS-t' K 5;H F^-cbU, 

7 7"f JL/& ^“SHIN-f” IC^A-S (NAME «■#«). 


£ *T W 

** YOKIN 2 AND AKA ** 


m i yaz ak‘ i 

500 OR 

A . nakamura 

890 OR 

nakan i sh i 

10000R 

nod a 

1 000 OR 

n i sh i da 

750 OR 

hor i uch i 

1 500 OR 

suzuk i 

600 OR 

Y . nak am ur a 

1 000 OR 


#Jjg ! LSET, RSET, PUT, GET 
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7-r-JbK 


APL — 


TRSi -*-*:£Wlt. 


CPM • ^7:d:Ip]b. tzt* L, 7 
> y A • 7 7 'f O'?)'*'* 7 7®(i 
128 K 


M223 RECORDSIZ #1, E$ (20), 
B1(0) 

• OPEN^I, 

* '#«*<**. 

mx-z* £ at&w 

(C 4 h £h). a 

teK L, 

tc{± 256 '<>f h tz f .t>\ listed f± 

ttM&£tlZ>. 


MZK 

•a£^£L. 

16'<T 

ZtiX't'h. 

CBM 

— 

PC8 


TRS„ 


PC3 

RFORMAT #1, A%, E$ 




IF 82 

• £ IWJ t . 

Is'^Jl' 3 

• ^drlWJl:. fc^L, 1 

u 3- 

- K^(± 128 /<>f f . 


Cl 80 DIM El $ *50 
DIM A(1 ) 

• ±.<F>£ l (Zgd^lj t§t' 2 <7 7 r £ 

• RECDEF 


M243 • M223 £W\t. 


MZB • H2 Ma &* L . &$Uit£'3&, 
*^»*>SBtf«i32'<>r HcSSe 
? fL*CV'S. 


BUB • ‘4:* £ |SJ b . 


FM 8 -^ilHjb. 


PSP BUILD # “FD2”, “7 7^ 
;u£”, “IS”, 127, 1, 14, 200, 
2000, “XYZ” 

■FD2 (7D 7 t 5 ^2tI), 127 ( \s 
3-KS), l(*— *>ffi»).14(* 
— <n*<4 M&), 200( 77 ^ 
y( X), 2000 [i 7-^-^ai*#^* 
(^H^qj)], XYZ(^77-K(f 
0&-5I)]. 

•774’ /U*felw i bf 1 K '<4 Y r 
i; Hf'-f X *r "/ h _h(- vU.t&t)* £ 
tli>. 


PC88 *^7:d:lHjL. ^ 

-fe y YlzKLXbmt J: llztfii 

N52 

• fs] L. 

PC6 

• ^^Cd:|H]b. 

MLT 

• ** tl5] b. 

HC 

•11/3- K^(i 128 '<4 

K 

• 4m 1 

, 5 (iT'" 5 T. 

• 7 4 - 

/I/KS? (50 d: 20) 


• RAM 77 A fi' 2) X>±^ £^l£(2 
DEFFIL 


FP1 1 


SMC RECORD #2, A, N, 
RJUST 20 AS F $ (2) 
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7 >r —JU K3C FIELD 


1^=J- vmii OPEN^T'^T 
£ *. 

7r 4 'U#-*§-(±0^ 127. 
SE*fcS2ti2'<>f K 

LJUST, RJUST T-mxEi"^. 
fii^J '&m± RECORD^ 


MZ35 

• PC3 t Wit. 

XI Hu 

• ^^CdrlWJb. 

MB16 

• U r7 — 

• &'&2 

K^fi 1 32767 <F>$m. 

IBM55 

• MB16 £IWJ t. 

PC100 


MSX 

- 


37-<->IUK 


T'fUfb'Jlii tl FILES 


: FILES 1 

I I 

: T* CRT 

ffeWi : 1 K ? 4 ■T'#-** #*-*-* i, 

2 ^l±7r>f^, 7r/f $ <7>Ji|H. 

: »>*'>7’ AoTv>£f*r&£, i*lifti«^Lfc»J0l«i-*^fc. 


^ fr ffl : xXv h(Dtp(DZ>7 -f Jb(D—'g£&5l&. 


f i 1 es 

aksrF-h. 1 

word . 3 5 

testl 1 


word . org 9 
a$data dat 1 


word . tad 5 
AFILE 1 


#M : LPILES 
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?7-nbX 


APL CATALOG 1 

M243 -M223 ^[5]b. 

MZB DIR FD1 

TRSi • DOS -t- KT'DIR n-^ 

> K £ £> . 

• FDl^^w&i-^ t— #*iSDIR^ 
K^ffL tz t7 4-r^m^ 
L tzztiz&z. 

CPM FILES “A : *. * ” 

• i^t^7r 4 n,££ftl]K-e*£ &. 

BUB -*4ctWlt. 

M223 • CLI -t — K T' LIST / 1 . 

&h& 1- -& t 0 £*&ie 
■£> . 

• 7 r T £ $ f± 256 '<4 h # 

tt. 

FM8 FILES “1 : ” 

• T'<4 xzzztim “CASO : ”, 
“BUBO 77-fe-y t 4> 

& X Xf'<-7)b • 77-t y h $*<T)£;7 

MZK DIR 1 

. t 1 £ 1 %fcLt 2 Z 

£ K 4* & . 

PSP CATALOG 1 

• «#g(±4;*itn]l:. 

PC88 • 4^4C twit. 

CBM DIRECTORY D1 

N52 • K7^f7#f$:fPi&t5 

t, 0 

• 7 T >f u 7 

- K#*c<o*fi. 

* JfcJgti 3 ffiX-m 7 r; 2 h, -7 7 4 )\, 
nmm, T-7>4 3 *‘t'7 1\ ia 
nitm* $n &. 

PC8 • 

• 7 T 4 /b(7)iz£ Z\t9 7X9 (2K 
'<4 h ) mz. 

TRSn • TRSi tWlt. 

PC3 CAT AO 

• (A), 

0 &-5-Z.&. 

PC6 

£ |WJ t . 

MLT -CPM^lHjb. tzt'L, 

Y74T* b t A £ L 

fzzttz&b. 

if 8 2 -^^c^njjb. 

FILES “0 : 

. x££CAS0 ft* t *7^ 

>y h ^£7)^7 t >f SrtBTj'f £. 

HC • u-<;l 3 £ |h] L. tztZt, 

Y74 AorB (or C or D) 

K 7 ^ -r-e*> & . 

C180 • CLI -t — Kt' DIRECTO. 

• FILE(A)f±A#<^7 7d , -Mfct&£ 

• EXFNO liX7-7!)'mL^7T 

FP1 1 FILES “0 : " 

• T'<4 x&£'£*&-tb t, Y 7 4 
■7*0 

• xii, ram • 
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x-f h U til* FILES 


ROM ^ c 7 

• 7r>f/K7)JH4^^$n-2). 


SMC DIR “A : * . * ” 

• I^t47 7 ^ >u£fcftlJK-C#*. 

• 7 T >f ^UC7)±# $ti^n • ✓ <>< J. 

• USER 

tp(7)-7 T >f /HfcSTjrf-*. 

• DIR 

• cmicMilL-c, ASCII -t — -r 
?^:7 T >( /u£^>-r »-*-& 
TYPE fourth h. 


— 9 £ ^M't b <7>IZ ENVIRON *, 
ENVIRON $ 


MSX — 


MZ35 * PC3 <h [5] b . 


XI Hu FILES “0 I ” 

■t b t , DEVICE T'Jh5e L/:7 T 

•Ifs|±7 7^M«, 7 t^U£, 
0 b#<7)Jiim. 

DEVICE “1 : ” 

• 7 7 'f * T' 4 X 7 >J 7° * W«&B# 

<r>T'<4 xZ^^-tb. 


MB1 6 • CPM tfflt. £tz, 

ft ( ? ) £#L*t, 7 7^^ 
-X. ? X T > i-' 3 >tp^l 
*>») £1-&. 


IBM55 • MB16 ifpJb. 


PC100 • f§] L. K 

7^f7^, t, 

b ‘ 7" 4 V9 h »J*''iigtR£ 

n&. 

• ^/l/> h • T'-f u ? h U <7), 

CHDIR 
MKDIR 
SiJRfcti RMDIR 
bi vnftztib. 

• toiW‘< MS-DOS*'' BASIC 




5V lx:? h ')<D7°') LFILES 


: LFILES 1 

l—J 

^H&nJ 

WtMli : tV 

: 1 -TV am FILES £|5jt. 

2 rv xT-y £MT*>&. 


n if &l l T-f hn^fDZfj’^ 

-?z>. 

1 fi les 


1 word . org 9 
5 a$data da. t 1 
1 


#88 I FILES 


akgrph - 
word 
t e s 1 1 
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i;u • 


APL — 


TRS, — 


CPM • DOS ■=£— KT (CTL) - 

|p) <n\k dir. 


M223 • CLI ^ — KT LIST, , 

SOUT/3. LIST < 50*Tfi CRT 


MZK DIR/P 

CBM 

• CMD4 tn^x-r') > 9 

£*- 

— "7° > L , DIRECTORY n 

-v>> ] 

K £: "T -5) . 

PC8 


TRS, i 

• TRS, t mt. 

PC3 

CAT PRINT AO 

• ihjl. 

if8 2 


lx 

~ 

C180 

• CLI €— Kt DIRECT 

0, $ LP. 

M243 

• M223 £[Hjb. 

MZB 

• MZK £|sjb. 

BUB 

• 4V££|WJL. 

FM8 

FILES “1:”, L 

• sjl. 

PSP 

CLIST 



PC88 -^^CtlHjL. 


N52 

- 

PC6 

• ifcamifrvv. 

MLT 

- 

HC 

• FILES £ COPY #M. 


FP1 1 LFILES “0 : * 

• ate**** * rat. 

• *£££»& I - & £, KtT 


SMC 

• (CTR)-(P) DIR. 

MZ35 

• -f-T 
(0 ) 

CAT A0* / 
*/l4E-9- (A), 

a. 

X 1 Hu 

• FILES £#M. 

MB1 6 

• CPM tl^lb. 

IBM55 • FILES cr>h t, K 

PCI 00 • Shell K £®V\ 

DIR ^^oTl5]b^i:^T#«&. 

MSX 

- 
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> X FORMAT 


Mj£ : FORMAT 1 

LJ 

' 7" 4 X 7 >y h £ 7 * — ' 7 7 T 4 > 7 n *f 2 > . 

2 rfTi&^T'4 X7-y b ti, | f 7 ^ — ? 7 f >( > /L 

*o & ^ . 

3 ~7>a-7> i, 7" 4 X 7 "/ b 7>BiJ7>[*r#{i^;b;ft. 

4. 

4 M'&IZS —fi-CmMLtz format 7"n/7A^ffl^, ZCOfc^d 

Wffl L&V'. 

; »> 7 *-^-yr-r ,tJIUi<07u y t* • 7* * «fc -5 Ut & fcrtttJWffc 

&?r 7 z t. 4 — ^.'i {,v>t. 

2) a.— -jr -f 'Jf-f • ^0^7^ OS (Operating System ) U r? i H i > . 7o/7A 


^ 19J : 3,—r -f U^r-f • format 

run" format" 

create system disk<y/n)? n 

mount new disk on drive 2 

sure( y/n>? y 

complete 

0 k| 


#M : 


77~ 7'.Vh 


APL • greeting program £f^‘) 

-€■<507 7*4 n,££fc£;iur 
HELLO tiTh. fit, INIT 
HELLO i-fTo. 

1"<JU 3 • FORMAT 7°o 77A^ 

H*tL, 4-<Of£ DSKINI 7-7> K 

C180 • CLI <0 VINIT 37> K 

Tfr 7 . 

TRS 1 • DOS -t— Kt" FORMAT 

7 a 77 A . 

M243 • M223 £ |hJ b . 

CPM • TRS, £|b3L. 

MZB • J-—T 4 ') T 4 - 7 n/ 

7At “1" £ “ S " a -7 > K £ 
^*t7 2>. 

M223 • CLI -t— KTINIT/O. 

* 'f-y + 7^ X £ tlfc 7" 4 X 7 y 

1 ' (±t'— L 'CfOix 

• 2 > . 

BUB • )\s^<F>~7 t — -7 

.y b . 7a /7 A£^fTl"2>. 

MZK • a— -f -( 'Jf-( •■/or 

7A 2> “S-DISKETTE INIT” £ 

FM 8 • a.— f 4 >J 7 4 • 7 0 7 

7 A “SYSDSK" -£ 

7>f£ DSKINI a-7> K£H? t1" 
2>. 

CBM HEADER “NEWDISK”, 

Dl, 199 

* 7 4 X ^ , ID £ -^* X & . 

PSP — 

PC 8 • BASIC T'#! 7 (cfi 

format 7 u /7 - 2 , . 

• format 7 o /7 A £UHt 1 ~ - 2 ) £ > 
A • 7 s " 4 X ? £ h 7 £' 7 A 4 
ffijV'T < -2,. yXf A - f-( X^ 

£f£ 7 s "— ? * 7" 4 X 

7741^ *l 2 >. 

PC 88 •if.70 7t“(^b*‘l: 

s 1 )^ — y -v 7 2 X' c* “C ^ ' 2> . i 
— • 7 o -y h"l±7o 77 A “format. 

n 88 ” £^|fr£-£2>. 

N52 • K 7 4 7#-^- £ ^ 

£ 0 £*&5£Lfcw £\z^h. 

TRSn -TRS, £[5]l;. 

PC 6 — 

PC3 INIT 

• K At)& VOLUME 
NAME ? £ ffflV'X < 2> <nX\ tK 
'J ^-A££ Ajj-tZ. 

• ,-K U a — A£co*£H(i, LPRINT 
Al, “VOLNAME” tz J: &. 

• ,*ij jl— A££*0‘) 

LINPUT Al, X$“Cfrfr&. 

MLT • -a-— -f 4 'J 7 4 • 7 0 7 

7 A 60 “FDD INITIALIZE” £ 
^t1“2>. 

HC FRMAT “A : ” 

• K7>f7ff(i A, B, C, D(7)^ 

• yXTA<7)3t-Cli SYSGEN 
a-7> K£ffl'''2>. 

IF 82 * zl— -f 4 'J 7 4 • 7 “ a 7 

7 A “IFUTY” (7)U2 £Hfrt- 
2> . 

FP1 1 FORMAT “1” 

• FORMAT <T>\k \zT'<4 X^^rft 


7t-7 7T-f >9 FORMAT 


it h . T''<4 7> (± ( ” ) 

t''M 7. £ £ ht K7^7* 

0 j&<*&5£$*i£. 

T'>f 7 . ^ RAM, ROMm “ 7 

^ £7>7 ^ - — "V 7l/( > r^<«rtg. 

fit Eg u (± a 


SMC 

TRSi t\3 \t. 

MZ35 

pc3 t m t . 

XIHu 

J-—T 4 ') r- 4 • 7"n 7 

7/vW>( 

— -v "7 'f 

MB16 

DOS 

•Jf <( • 
& . 

7'd 7=7 “FORMAT” 

IBM55 • 

MB16 i: fsj b. 

PC100 • 

MB16 £ r«j b. 

MSX 
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: 7 ;r— ^wh 
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\slr b ') <Dftm CREATE 


: CREATE “ AFILE. DT/1 ” , 

T 1 1 

MSij h'7^rNo 

CONTINUOUS ( 100, 5 ) * 

V — K ® V 3 — K 

Ulfill : l) £fNS cL, 7 T / f ;u£ 

: 1 (a)CONTINUOUS ^ 2) 

r'^ n U i:7 T >( £ u 3- Kg£|£irf&. 

2 (a)CONTINUOUS LINKED fttLli T, >) > 7 K • 7 7 >f 

(b)7-'^ u ? h 'J (256' <4 h ) £g££-f 

&. 

fflio I "Tils?* U Vo -, f • f'-f * 7i:frt« , i$ntt'4f<'C<7)7T < 'Uc7)£hu\ 
&1$. $ H X V > & iiip/rc7)-itH/i £ Tjrf 

- , i*«lV7’-r;u CSORD, Cl 80] !|%aWUjiliMLA:Mlsfe«-ft^iL*Vr 'f -»u. v 
r ^ ^c7)4^t»F^{ifJ:;6:U-C'$ ^>. CSORD] • V 

T J '1*2 CC180] E3') > ? K • 7r^k0 n ^. u 3 — K 
"’tta u- 3 - K *> * |KH£««f*u iftitG: $ H X v ' & . |$.& L fz t'— * iifi'ft, 

* K Wl - A {h * 7 $ * l £ . 

• ’ y > * k • v 7-r ju cc 1 so] <iz--r l t mm. m u jot m l *■ ^ m huc m ^ * l z> -7 t 

4 1 -t: 7 9<f>t'— 9 t L -a^ihtLipdmi 256 h T'& •) . 7 r -f 'Ufteo 


9UI — K 


~fU RESTORE 


100 DIM Ei<l) 

110 CREATE " AF I LE/1 " » C0NT I NU0US C 10 1 9 ) 

120 OPEN #1 : :, AFILE/1” i 1N0UT »FIXED<10) 

130 AT EOF #1:240 

140 FOR 1=1 TO 10 

150 B(1)=I*3. 14159 

160 PUT #1 :B 

170 NEXT I 

180 RESTORE #1 

190 N=1 

200 GET #i:E: 

210 PRINT "f3vW=" ;N, M i^: n ;B(1> 
220 N=N+1 
230 GOTO 200 
240 PRINT "END" 

250 END 


#!& : OPEN 


-f T \s 9 h x ) (DfcjflL CREATE 


APL 

• OPEN #Hft. 

TRSi 

• OPEN #Rtt. 

CPM 

• OPEN #M. 

M223 • & Mj& l . n n L , CLI 

3 > K T' CREATE & 
ntiTsJ^^^ trfF'C* &. OPEN 

MZK 

• OPEN #H(i. 

CBM 

• OPEN #Htt. 

PC8 

• OPEN #JKL 

TRSn • ,& &• L . n n L , DOS 

3 -v> > K T CREATE & £ 

ntiiuj^^)^ open 

PC3 

Al", 

&. 

• U 3 

h t 
t, 

'<4 

• CREATE “AFILE : 

, 5, 100 T I'hJ Ffc <7> C. ttrX^ 

- t 256 '<>r 

u 3 — K&8, U3-KI 256 
h t a . 

IF 82 

• OPEN #M. 

• OPEN mm. 

C180 


M243 

• M223 > |bJ L . 

MZB 

• open mm. 

BUB 

• open mm. 

FM8 

• open mm. 

PSP 

• BUILD # “FD1”, 


"AFILE”, “RF’\ 100, , ,5tM 
“FD1”. It K 
7 ^- 7 '^X', FD1~FD4jH*;C 
& . “RF" (i IT l^W^c 7 r ' f £ >P 
i\ ”£ "SV" £l-jfLtf:WUW 
“ I S F " ti- 
nt i , tfi'jl lilt ! Hnl fifc T h b 

z. t £>L1 \ 


PC88 

• open mm. 

N52 

• open mm. 

PC6 

• open mm. 

MLT 

• open mm. 

HC 

• open mm. 

FP1 1 

• open mm. 

SMC 

• open mm. 

MZ35 

• open mm. 

XI Hu 

• open mm. 

MB1 6 

• open mm. 

IBM55 

• open mm. 

PC100 

• OPEN #M. 

MSX 

- 


7UX — K 
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~7 JU<D=J£°- FILECOPY 



7^-ob • utr— 


APL 

- 

TRS, 

— 

CPM 

• DOS <n PIP T"C'§ h. 

M223 

- 

MZK 

- 

CBM 

- 

PC8 

- 

TRS, i 

COPY A FILE TO 

BFILE 

• BFILE (iff V r 4 'Uf, T'i «T 


— T(i4-^). 

PC3 

- 

IF82 

— 

P "^^3 

- 

C180 

• CLI= 7 -^> KCOPYT'nT. 

M243 

— 

MZB 

- 

BUB 

— 

FM8 

- 

PSP 

COPY “FD1", “FI LEA”, 

"A”, 

1000 

“FD 1 ”, “FILEB", “B”, 

PC88 

- 

N52 

- 


PC6 


MZ35 COPY C D 
•CliV-x • 7 r T M±&. D (i 
7 b° — • 7 r T MfctSS. C (i D iz 
7 t°— 

• MZ-3531 <7)Jt^*(i, COPYc7)ft^ 
•) (2 SCOPY 

XI Hu 

• — 7 4 0 -f 4 •7'D/ 


MB1 6 

• DOS P r? -v’ > K 

Ht 

, COPY £'<*>&. 

IBM55 

• MB16 t |SJ t. 

PC 100 

• mbi6 tmt. 

MSX 



U =1 - MARGIN #n 


: MARGIN #5 : 128 

<cw 7 T t 

I OPEN 

4#^' 1 T4V9\')<n U3-KSt^Sit4. 

{&)=>> v — )V (7r / f^ff^0 tti-Lli', =7 > V — ;u£''t^ai£ 
*L&) <7)^3* 

CRT tti:&*>*T3»*>»5£( 1 ^M£IHte^80). 

(b) ru > 9'Wk& 

-T')> 9 <p> 1 fr <7)S $ C7 )^h5£. 

(c) 7 o 7 b° • T'>f x 9<ntyj&. 

OPEN #n 

(d) x U T/u • 4 > ^-7x-XO^ 

OPEN #n-C*H5cL fcU 3— KStfO^lg. 


10 DIM E$*30 
20 OPEN #6:$LP<136> 

30 E$= " ABCDEFGH I JKLMNOPORSTIJOUXYZ " 
40 OUTPUT #6 : E$ 

50 MARGIN #6:20 
60 OUTPUT #6:E$ 

70 MARGIN #6:136 
60 CLOSE #6 
90 END 

m & m 

ABCDEFGH I JKLMNGPQRSTUVUXYZ 
ABCDEFGH I JKLMN0PQRST 
U0UXYZ 
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^P—^y #n 


APL — 


TRSi — 

CPM — 

M223 — 

MZK — 

CBM — 

PC 8 — 

TRSn — 

PC3 — 

IF 82 — 

\y^)\/ 3 — 

Cl 80 • 4 : £#.W. 

M243 — 

MZB — 


BUB • t&M&L. tz tf L i 
WIDTH LPRINT 80 (:£3=3&) 
XX ')> 9 <n 1 Srfl^T' 


FM 8 — 


PSP 


PC 88 -BUBilWJb. 


N52 — 


PC 6 


MLT — 


HC WIDTH “LPT0 : ”, 20 

• ~7° 0 > 9<x>— ftt\]^&<x>ifczk$:5x 
fc-th. ffiWi 1 A'k 255 U't, 
255 T-Tf! -proH- <£ h 

• “COMO : ” X' RS-232C ,1?— V <F> 
tixffettfcfc'C# *. 

• DEFFIL , 200 

us-KUS 

RAM 7 T T 

Itii, 1 — K lb £ £: AEl£i” -2> . 

• +[U'J #It!i £ It CLEAR L 

tz RAM 7 7 >f ;i^ • x ') Tc 7 )f#J^ 


FP1 1 • $k & L. tzf* L, 

LWIDTH M (M(±*^«t) tnj 
> ?<7>— fr<50^£ SrJtSE’C^ &. 
:£^&(i80£*:lil32. 


SMC • OPEN K^£r 

£&X& 2>. 


MZ35 — 


XI Hu — 


MB1 6 WIDTH #1, 200 

• 7 7 T yi'6r"'<^ x 

(7) Hi ti Ipki £ i U-tblz Hx^. T ' <>fx 
ii-T'J > ?, x ? ij — >, =7 = ^ 
-=- / 5r— V- a > * d-°— b . 

WIDTH “LPT 1 : ”, 80 

• ifi t- <' lz-£-f, *<7> 

OPEN*^ffm. LIST, 

LLIST XT '<4 7,fr-r')>9<n 

open sna. 


IBM55 

• MB16 £ mt. 


PC100 

• bub £ mt. 


MSX 

- 
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77^^ • Jj*-f RESTORE #n 


m 5fc : RESTORE #9 : 4 

'iZ'lc T \ ^ B& oj 

77^ \ - 
tfT > 9 


W&L : ^L^tI^7T^u • jK-f 

: 1 - ^>;-7pUXli0i 

&* ■& . 

2 •TKwx^fB&tttli', M 11 ^- K •VT'f^ 

: ""ix* -x— *f-*<i u =»- K*tt3ft^>«$u«se*c#*c t. Beasei* 


^ ^T 15>J I ~J □ -9 ~z? A 

fastf-f= 1 
f3vlK= 2 
fav^-Y= 3 

4 

5 

JavW= 6 
fastf-f= 7 
fav^-fc 8 
?avM= 9 
?av^-f= 10 
END 


CREATE £•#/$. 

I^a9= 3.14159 
IZ#2$= 6.24159 
1^5/29= 9.44159 
i:#29= 12.4159 
JTjVrt- 15.4159 
1^29= 18.4159 
IZ#2$= 21.4159 
i:^j 9= 25.4159 
i:#2$= 28.4159 
i:^a9= 31.4159 


#Jjg : GET, PUT 


UXh? #n 


APL 

TRS i • GET #9, 4 ti 

r-?£Ktj 

T'£ &. 

• PUT #9, 4 ^ >f > 9 £ 


CPM 


TRSi tmt. 


M223 GET #9 RECORD 4 

• .+:>f > j t-9^k 

tjtb. 

PUT #9 RECORD 4 


MZK INPUT #9 (4), E$ 

• #4 L, T-fZKtJ 

-tb. 

PRINT #9 (4), E $ 

• #4 > ?£fm L, T'-?£tf}*J 

CBM 

RECORD #9, 4 

• mtim^-xtwit. 

PCS 

• trs, twit. 

TRSn 

• TRS, £|5jb. 

PC3 

• TRS, t\*]t. 

IF 82 

• TRS, t Wit. 

1"<JI* 3 

• TRS, trsju. 

C180 


M243 

• M223 t Wl b . 

MZB 

• MZK £ |SJ b. 

BUB 

• TRS, t ISJb. 


FM 8 

• TRS, t Wit. 

PSP 

- 

PC 88 

• TRS, £ |WJ b. 

N52 

• TRS, t Wit. 

PC 6 

— 

MLT 

• TRS, i IWJ b. 

HC 

— 

FP1 1 

• TRS, tWlt. 

SMC 

• trs, twit. 

MZ35 

• MZK tWlt. 

XI Hu 

• TRS, tWlt. 

MB16 

• TRS, ^ |pj b . 

IBM55 

• TRS, ^ IhJ b. 

PC100 

• TRSi tWlt. 

MSX 

- 


VIDEO-RAM x-?<7)-fe-7'fc n- K VSAVE, VLOAD 




© VSAVE 
(D VLOAD 


AFILE”, Ml, M2 

I 1 " 'I 




“ AFILE ” 


: CDCRT ±<7) (Ml + 1) fr g£* A (M2 + 1) Tr@ & j X 

(Dt' 4 X $ *CO'*liii®1W$& “AFILE” £, CRT 

mi- -2). 

4#^: l(a)PC-3200( S )T(i, ( * ) Srfttt S ^ fC, IW, ^7- 

x 2) ) a. 

(b)Ml, M2 ^^w&i-«2> i, 

2 VSAVE fLfcfJiJSWti. f&#£r*£ti$r<''. 

fflfl * ®iifii it, fr* c ifca6J-. - fc. 

mR,=, * 2 >ijx<-^ Mfetsii. %ri: CRT 

'< •■/ 9 i? i£, (Sfe) tSi, 


-fu V =7 u®\\ : cRT©_tfre>sfT«- <*> loffltorift, f®3 
Lr^lz — 3^U, CRT<D^_bfr^ ( + ) lOlS-ra^fe 
f&, >^7#' ^(7) 3 CRT Ji 

/ \^>j^f *5. 


10 CURSOR 0,0 
20 FDR 1=1 TD 3 
30 FDR J=1 TO 10 
40 Ii ISP "+"; 

50 NEXT JsDISP 
60 NEXT I 

70 USAUE "AFILE: A 1", 0,3 

80 CURSOR 0,0 

90 Ii ISP "++++++++++" 

1 0 0 C U R ■!• 0 R 0 , 4 

110 II ISP "NOW LOADING!" 

120 OLD AD "AFILE: Al" 

130 END 


:-f::+::+::+::+::+::+::+::+::+: 

:+::+::+::+::+::+::+:: 4 :+:+: 

NOW LOADING! 
READY 
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• tz -7, tfv'TT • □— K 


APL 

- 


TRS i 

- 


CPM 

- 


M223 

- 


MZK 

- 


CBM 

- 


PC8 

- 


TRSn 

- 


PC3 

• **#!8L 


IF82 

- 


L"Ol>3 

- 


C180 

- 


M243 

- 


MZB 

- 


BUB 

- 


FM8 

- 


PSP 

- 


PC88 

- 


N52 

- 


PC6 

- 


MLT 

- 


HC 

- 


FP1 1 

— 



SMC — 


MZ35 (DGSAVE “AFILE”, XI, 
Yl, X2, Y2 

• XL yi 

• X2, Y2 (i^Ti - 
(DGLOAD “AFILE”, XI, Yl 

• XI, Yl 

XI Hu 

- 

MB1 6 

- 

IBM55 

- 

PC100 

- 

MSX 

- 
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n jxmnoicm swAPy, 5A 


M'A : SWAP FDM1@M2, “ AFILE ” 

7 r -f 'L-& 

ttfll I T'4 X'lTy h |*J X> 7° U /7Ai / -t >J fa<7)7”u 

I 1 Ml{iK7^f7'ft, M2 li^Ua-A 1 ’ 

2 ^Lr'+'XJ-r^x h £T ?t t -r • K 7 4 x^y h_h 

Iklz, K7^rMl 

>'< M2 X>T'^f X^r-y h _h(C #> & BASIC f^X b “AFILE" 
£, BASIC -f^X h • ij TIli^lilL ^ X> ^ 7° o 

?'x £fcu(t&. "AFILE” 

X ^X h SWAP »Xr- b 7 > b ^b7"n 

3 #7“0 X'7A^tTX) u > 7X>P£U(2, g&fccOfjft, *IJffl#fli-J&X> 
ft3=Fli'x:(t#t£ tli> . 

4 SWAP ZtitzT** b T', SWAP^$r^fx^v>. 

5 Wl3ZT^o^7“o ?' 7 A £ *IJ L *: v ' B# ( - fi *lj Tbh. 

ffilci ! "tf'J*— a l &c7)f — 7, 1 fl*l<50r'4 x. 7&£'£7 t 4 >\,t EtfUI'S 
-). tf'J -L— fca^U, 


7 □ *7 -7 <u ® lj :>-!'>• ^D^At 

<k\z “TESTi^^n^'^Ar ! U, 

MWZ “TEST END” 

^>. 


10 J=4 

20 FOR 1=1 TO J 
30 PRINT/P STRINGS"?" , I) 

40 NEXT I 

50 PR I NT /P STRINGS" *» , J+l) 
60 SWAP FD232," TEST1" 

70 PR I NT /P "TEST END" 

80 END 


K-7-T ~7Z #r1'(7)7KU ZL~ A2 
“TEST 1" cozfn ^f=yJ^. 

10 FOR I=J TO 1 STEP -1 
20 PRINT/P STRINGS" ! " , I) 
30 NEXT I 
40 END 


m ft m 


??? 

???? 

***** 


TEST END 


#flg : GOSUB, CHAIN, CALL, 


Tjj^y 


APL 

- 

SMC — 

TRSi 

— 

MZ35 — 

CPM 

- 

XI Hu — 

M223 

— 

MB1 6 

MZK 


IBM55 — 

CBM 

- 

PC100 

PCS 

- 

MSX — 

TRSn 

- 


PC3 — 


IF 82 

- 


\s JU 3 

- 


Cl 80 

— 


M243 

- 


MZB 



BUB 

- 


FM 8 

- 


PSP 

- 


PC 88 

— 


N52 

- 


PC 6 

- 


MLT 

— 


HC 

- 


FP11 




tl DSKI$ 


®5t : DSKI$ ( 1, 2, 3 ) 

■ r'-t 

: 1 JgSiti K^-rr#-^. I- 7 -y 7 2, &-%-. -fc?*#*«0»ll=fT 

1 . 

2 £ L "C-^-i. . 

4 DSKO$ tS&tfOiJj# £1~&. 

5 FIELD *T'#0 *>'<»/ 7 r & fflML'Cfr . 

6 ^fffl] fi-J (3 ti* <7> (z fg |IJ *C& h . 


EBhE 
/tJ on 


n *t 9 9 7 0vt'*f''( ?_h<7) 1 h 7 -y 7<7)16^><7) 1 T. 256 '<4 h 

*>£ ( 1 h v •/ 7<7>10tf<7> 1 £ 1 -t ? ^ £**■■& i &£. fcf'L, '#lil:lir«i] b 
< 256 '<4 h ). 

2> j. =? >y ^ ( j. =? . y ^ §-!§.) 7 a y f • t ' \ * 7 i-.C035e0laMl'F]60 — >f, *1- * * f 
16££:<±10<7>®tf2 (-fc7?) «fc •) *t* £ *£ v ' £ . 


: K‘5-1'72. 1I-5'V5. l-lOtr^A©*^*, 
n 7C<& tb U . 

10 FIELD #0,10 AS A* 

20 FOR 1=1 TO 5 
30 LSET A$=STR*a#10> 

40 DSK0$2, 1, I 
50 NEXT I 
60 FOR 1=1 TO 5 

70 PRINT LEFT$(DSKI$<2, 1, 1 ), 10) 

80 NEXT I 
90 END 


m *r m 

10 

20 

30 

40 

50 


#HS : DSKO$, GET 
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7‘-r77 • -077h$ 


APL — 

“A : ” (A (± B, C, D T L «T ) <t 

TRS i — 

FPl 1 DSKI 0, 0, 0,1 

• K# 

1-7 ••/ ? -fe ? ? #-^<7) 

MMJ-fr 1 . 

• !*!'#(£ 0 #'* 7 "7 7 £ tL 

&. 

CPM — 

M223 — 

MZK — 

CBM — 

SMC — 

PC 8 • 

MZ35 — 

TRSn — 

XI Hu DEVI $ ‘*0 I ”, 1 , E $ , 
E2 $ 

• *& 5 e(±, 7 7 >f ^ * T '4 A 9 0 -r 

u n- K#^-“C256 

128 h "t 1 

0 “■ 0 X> ^ £5c 1- A -5) . 

• -Ti X 7 'J X 

i:^-fe7 h , ?'7 7 4 7 7 • / 

U, 

PC3 — 

IF 82 DS KI $ ( 1, 0, 2, 3) 

• 2 #0<7)«j|^c(±, -»M (it 

= 0 , SlS = 1 ) T*> & . 

U"<;u3 •*N'£:£P»JL. 

Cl 80 — 

MB1 6 — 

M243 — 

IBM55 — 

MZB — 

PC100 DSKI ( 2 , 1 , 1 , 1 . 2 , 
9/9 ) 

• 4 T - 94 7* 

OVffiO, pjffil ), 5#S(i-t? 

7#S 

L. 

bub • 1 F 82 tmt. 

FM 8 • t IhJ b . 

PSP — 

PC 88 • IF 82 t \*\t . 

MSX — 

N52 — 


pc 6 

MLT — 

HC • - 7*4 A 9 • 
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Hit] DSKO$ 


: DSKO$ 1 , 2 , 3 

W.We r 7 O e • f'-f x 7 7 izWMXf-W irdit/TZ 

nm : i K 7 'f 7'##, Y =7 y ? -fe ? ? #-^-COJl|M(w tT 7 . 

2 :£^?ij<7)f^<7);^£ li-b ? 9<n*<4 Y t& 

3 DSKI$ 

4 ^c^ijfi, o x ? • /<77ri:#)b>!>'l:rtSlMT^ 

5 *?(nft&£&mwzm£Wz.2><F>izmm-c*>h. 


"7 Q ^ ~y -^I^J • Kt7-<t 72, 1 h7'y^7, l~10tz^^^<7)#^iX<& 

«u, 


10 FIELD #0,10 AS A$ 

20 FOR 1=1 TO 5 
30 LSET A$=STR$< I#10) 

40 DSK0$2, 1 , I 
50 NEXT I 
60 FOR 1=1 TO 5 

70 PRINT LEFT$<DSKI*<2,1,I>,10> 
80 NEXT I 
90 END 


m *r m 


10 

20 

30 

40 

50 


#iig : DSKI$, PUT 


• J’O^SS 


APL — 

HC DISKO $ “A : * 1, 5, 

A $ 

• is'OV* t [S] L . 

TRSi — 

CPM — 

FP1 1 DSKO 0, 0, 0, 1 

t, K7>rr#-^ f t>f k# 
-*§\ Y 7 y 9 -te 7 ^ #-^-<50 

HIM left 7 . 

M223 — 

MZK — 

CBM — 

SMC — 

pcs • 

MZ35 — 

TRS„ - 

XI Hu DEVO $ “0 : ”, 1, E $ , 
E2 $ 

• 7 7 4 /U • TV X ? 0 7° * ‘CJh/H 
L tzT'<4 X(c DEVI $ £ j£<7) ~ 
£ £ *T 7 . 

PC3 — 

IF 82 DSKO $ 1 , 0, 2, 3 

• 2 K#4f- (f* = 

0 , & = 1 ) Xhh. 

MB1 6 — 

l — c;u 3 DSKO $ 1 , 2, 3, E $ 
i>. 

IBM55 — 

PCI 00 • DSKI $ #£H. 

C180 — 

MSX — 

M243 — 


MZB — 

BUB • IF 82 

FM 8 • 

PSP — 

PC 88 • IF 82 t\a]t. 

N52 — 

pc 6 • 

MLT — 


T DSKF 


ASst : DSKF ( 1 ) 

Httg : r'-t 

: i ttrSi K^'f-rs^-c-fTT. 

2 f£(i?-7X7 ,, (2K^-:'f h ) itM*. 

3 /ws-f^iWcf^na *>i'7 
£> -5) . 

in . X) ?=7 7*9 7D 7 f’f^^ ±<D 7 T 'f /K7) ffc* 0 # CDflfc/J'i&ffcJi 1 

& A f , 8-t7?£Ut£tthilLX?7 7.7£ Of 


* ff 91: ^7-<7U&fti|K;UT dskf naScroffi®*<t«-a-5. 


print dskf< 1 ) 


28 

0k| 

kill 

0k| 


"AFILE" 


print dskf< 1 ) 
29 
0k| 


#BB : LIST (M223) 


rrir 
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5*^3^ • 7U 


APL — 


TRSi • DOS -t— KT FREE 3 

K£^fr1"&. 

• fjfCti (1.2K'<>f b) 

J4te. 


CPM • DOS -T — KT'STAT 3 

-?> vzm=i-th. 

• b#te. 


M223 • CLI K *C DISK/ 0 . 

• DISK (i LIST ?-?> KLt^n 

• m±-rv X 7 ( 256 '<4 b ) 4 


MZK 

- 

CBM 

• DIRECTORY 7 -7 > K 

T &l b 

~ tfrX'Zb. 

PC8 


TRSn 

•TRS, >IhJL. 

PC3 

• CAT 7 -v > K T'ftl -6 ^ 

t b. 

if8 2 

• 4^*^ISJb. 

\y 

•text mt. tits L,wt 

(i 

-7 (0. 5K'< 4 b ) 

C180 

• CLI X — KT- DIRECT 

r? -t' > 

K £ i l (jr-fci ^>:H ; 

T* & 


M243 

• M223 £: l»J L. 

MZB 

— 

BUB 

•^2:IBJL. fcAfL.tfUi 

6 K'< 

4 b ifM>/.. 

FM8 

• ** IHJ t . 


PSP — 


PC88 DSKF (1), (Sng 


• 1 1- Jr 0, 

£ b 

fci¥Lv 

'tilttiiBSii*. 


N52 

iwj L:. 


PC6 

^Sct IWJ t. 


MLT 



HC 

T' 4 7. 7 • 

“A : ’’ 

(A fi B, 

, C, D T& nT) Xh 

b. 

FP1 1 



SMC 

cpm tmt. 


MZ35 

PC3 tmt. 



XI Hu DEVF (“0 : ”) 

? 7 X?$C (1 4096 x< 

4 b ) 


MB1 6 

•DOS IS 3 *7- 

> V t LX CHKDSK frhb. 

IBM55 

• MB16£lH] L. 

PC100 

• PC88£|WJl:. 

MSX 

- 
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7 T-iiVCDVkt) 0 EOF 


: EOF ( 5 ) 

mm \ X — *T > * )\s ' 7 T 4 tv 0 <7)tf# .& ttth . 

W$l : i 

2 > — X> • 7 r 4 /I'&STttffnlZ, EOF t'7 7 ;K7)|i- 

t > ») (z &* o tz £" o £hJbI^, je. 7 — <'£7)(zf8i>fiJ-c 

bh. &tz, b \^thV ? — K2&60;b£‘o t: V T 4 /u 

£rcti‘£ £f£;b*l&. 

3 ®:f£<7)u r7- K£ff c /b£f£ # . $&MC J: o Tli ( C 180 

££'), ^<7)^X(:^bf, Klfc i it L 

4* & co ■e&Tf;. 


7°P : EOF $-^-o-C77p-r;b “AFILE” CQ|*J^^lT‘'NT. , l 4 , 

10 OPEN "AFILE" FOR INPUT AS #5 
20 IF E0F< 5 ) THEN GOTO 50 
30 INPUT #5, A*: PRINT AS 
40 GOTO 20 

50 PR I NT "End " : CLOSE 5 
60 END 


fT tfj 

Test file. 
Test file. 
Test file. 
Test file. 
Test file. 
Test file. 
End 


l'st line. 
2"nd line. 
3'th line. 
4'th line. 
5'th line, 
last line. 


#flR : AT EOF #n 


x>k • ?[y • z?-p*o\j 


APL -m*k 

AiATL, ON ERR 
GOTO^T'^flT'^ 6. 


TRS i 

■ ^&t Isj t . 

CPM 


M223 

• APL >fsJL. 

MZK 

IF EOF (#1) THEN 100 

• ']Z>*f IF Jet L Tfflv^. 

CBM — 

PC8 


TRSii 

• 4- 3t £ InJ b . 

PC3 

• M223 t mt. 

IF8 2 

• 4: £ > InJ L . 

3 

• ia£L^7 7 >f i 

3-=-*r 

— > 3 > - -7 T 4 ^Xb h 



C180 

AT EOF #1 : 300 t t & 

t, *7 

T >f 0 CO £ £ ^ 

^ 300 


M243 

• M223 i IhJL. 

MZB 

• MZK tmt. 

BUB 

• ^Xtmt. 

FM8 

• u ^^3 <L fsj L . 


PSP GET #15, Al, B1 $ EOF 
1000 


• 15 Ii7 7 >f K, Al, B1 $ 

u&& (r.r>M±momi, m*& 

«I), EOF *t#-^ 

• Tr#-^l± 7 T >f ;u<7>**;b 0 £#& 


itztziz frm-r h m. & 

Utlli' NO-DATA c7)jr.^ — . 


PC88 

• U"<;u 3 tMt. 

N52 


PC6 

• *££|Hjb. 

MLT 

• *££l*Jb. 

HC 

• U ^>U3 t |uj b . 

FP1 1 

• *&<b|nJb. 

SMC 

• >F^c^|sJb. 

MZ35 

• M223 t [nj b . 

X IHu 


MB16 

• U"^;u 3 t Is] b. 

IBM55 

• u -<;u 3 t fnj b . 

PC 100 

• u^<;u 3 tmt. 

MSX 

■ t m b . 


U3- K»J*a- K<0»3£ EOR #n 


: EOR #6 : ’53’ 

'£•!£ T u =?— — K ( 2 iiy&fig) 

7?^!^ 

#-^ 

U3-K^U7- K*« 3 - K -6 . 

: 1 >1 tfO:$c £ ^firl" -6 #j t ^iSS =» — K £ 

' 100 ’ J^J::(-Juae L ’ 0A ’ £ u =/ — K fcXti =J - K <h 

■t&. 

2 7 n > h • ^ {f7” 0 > ^ £ fiif 1 £ £ , 'iicnfcio 9 £ 

’ 0D ’ iz ir h <n\z fMJ xh h ( 7° 9 > =* — K ). 


■7°p m ^ j^Oj Ij • “CFILE” IC5^— A“lABCD2ABCD3ABCD' ,; &;lWj 
U, EOF £-'£3_T^— -hijlzM. *4rii“A", 
‘44’ li“D"(7Dp^^— • =1— KT'35'5. 

100 OPEN #9 : " CF I LE . DT " » I NOUT i 0AR I ABLE < 20 ) 

110 E$="1ABCD2ABCD3ABCD" 

120 OUTPUT #9:E$ 

130 RESTORE #9 
140 INPUT #9:E$ 

150 PRINT E$ 

160 RESTORE #9 
170 EOR #9: ’41 ' 

160 INPUT #9:E$ 

190 PRINT E$ 

200 RESTORE #9 
210 EOR #9: •44' 

220 INPUT #9:E$ 

230 PRINT E$ 

240 CLOSE #9 
250 END 

m ft m 

1ABCD2ABCD3ABCD 

1 

1ABC 
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I>K • 7T y • UO — K #n 


APL 

— 

FP1 1 — 

TRSi 

- 

SMC — 

CPM 

- 

MZ35 -PC3£fHH:. 

M223 

- 

XIHu — 

MZK 

— 

MB1 6 

CBM 

- 

IBM55 

PC8 

- 

PC100 

TRSn 

- 

MSX — 

PC3 

SEP #6, & 53 




IF 82 

— 


\s •'<^3 

- 


C 180 

• A £#!!«. 


M243 

- 


MZB 

- 


BUB 

- 


FM8 

- 


PSP 

- 


PC88 

- 


N52 

- 


PC6 

- 


MLT 

- 


HC 

— 
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77 ^ ATTR$ 


MA : ATTR$ ( M ) 

: 51 ttL<r>Y?4-r % "s ~7 t , -7r4 
Srigt - . 

: 1 3I&(* K7>f r#-3\ #7r^Ht, 7r^«tn. 

2 JR14*:fc#W^I»« 



"u.*. .p ” 

mzihA-mu 

" R. . . ” 

m&%t 



3 JR1£(* SET «fc ») Ix^i" 4 . 

tfiit- 'J x h t LtiBt; t. 


~f □ ^ 7A^J : “afile" 1C JKf£ £-!££0, 

10 SET "afile", "R" 

20 PRINT "at tr i bute=" ;ATTR*< " af i 1 e " ) 
30 SET " afile", "A" 

40 PRINT "attr i bute=" ;ATTR*C "af i 1 e* ) 
50 SET "af i 1 e " ,"P" 

60 PRINT “at tr i bute=" ;ATTR*< "a-f i 1 e" > 
70 END 


m fr m 

attri bute=R 
attri bute= 
attri bute= P 


#bb : set 


PPUt^ZL-hS 


APL • ^;d/ 1 >.U1' m.7K<F> 
m, 7rf^ • Yttt<r)',k\z 

(*)-?— t, wz&Am 
±tmxbb. 


TRSi 

- 

CPM 

• *-* £ IhJ l: . 

M223 

• J&'ft(i, CLI 3-7> KT' 

LIST I$l;*jp3n4. 

• RliKAffiL 

m± 


MZK 


7 r 

T iu • -t — KSe-f^><fcu ( * ) 

-v — 


bb 


CBM 

- 

PC8 


TRSi. 

— 

PC3 

• ^o/ - 'J 7, h $k7j\n 

fit. 

7rU^wti: (*) -7— 


IF82 

•*-%t mt. 



C180 

• m 14(4, CLI ^-7> K<7) 

DIRECT T'DE 
tlb . 

• R (i^caiL^ih, W 

it. 

D(47 T T^<7>8iJ|&«Lit, N 

(4 7 7 T A 

Ii7 

7 T iuJS14<50£'H£tit. 

M243 

• M223 tmt. 

MZB 

• mzk tmt. 


BUB 

• ** t IH] t . 

FM 8 

— 

PSP 

- 

PC 88 

• « tmt. 

N 52 • # 7 7 T 

7 r T iMi T — 7 °> £ ft 

7 7 t 

£^*£ 1 " & £ £ (4 7 7 >f ;uj&< 
T— -r>^nx^^ < 1 1 iv'. 

• R <T)^ 7 jt (4 

PC 6 

— 

MLT 

- 

HC 

— 

FP 1 1 

- 

SMC -DlR£^fri ~bt& 7 nZ 

izb. 

• R ( 4 #£&^ 3 *it, PlixXf A 
±< 7 )DIR = 7 -^> 

MZ 35 

• pc 3 tmt. 


z tilz L X, t'> f x; *i- 
USER 

* 7 $-8J »)#£&&■ 

^ it b ■ b . 


XI Hu • 5l&{i “7 tT^ * r>f 
X 7 U 7° ? : 77^ ;u£ ” t'7 T 
4 . JSteliP** 

R j&MM&AfflSSS. 


MB1 6 — 


IBM55 — 


PC100 — 
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-7 7 -f JKAMilSlTF ATTR$ J’hUtl'ZL— 
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gu§E(D- tr fpos 


JKat : PPOS ( M ) 


z-t ? 


*Mt : 1 
2 


3 


M(i7 T T 

-t ^ ^ #-^*f± 1*7 77 0, ^vKO, HIM 

ff 1 # 

r'^f x^.y h co^^^L.— t £ic ffi*ijT'*><g>. 


Lo — 

10 OPEN "afile" AS #1 
20 FIELD ttl ,2 AS E* 

30 FOR 1=1 TO 5 
40 GET #1 
50 AX=COI(E$) 

*0 LPRINT " e$=" ; E$ ; " cui=";A X; 
70 LPRINT " -fpos=" ;FP0S<1 ) ; 

80 LPRINT " 1 oc=" ;LOC< 1 ) 

90 NEXT I 
100 CLOSE #1 
1 1 0 END 

m ft m 


e$=ta 

c v i = 

24948 

i pos= 

81 

1 oc = 

e $>= k e 

cv i = 

25963 

i pos= 

82 

1 c>c = 

e$=ch 

c v i = 

26723 

■f pos= 

83 

1 oc= : 

e$=an 

c v i = 

28257 

t p o s= 

84 

1 OC= 1 

e*=?! 

cm i = 

851 1 

i poS= 

85 

1 oc= 5 


#0S : loc 


-fc. CO N _1 


-JT>^)Y> * 7t\S>'S'3> 


APL — 

HC 

TRSi 

FP1 1 — 

CPM 

SMC — 

M223 — 

MZ35 — 

MZK — 

Xl Hu -text ISJb. 

CBM — 

MB1 6 — 

PC8 • 

IBM55 

TRSn - 

PC100 

PC3 — 

MSX 

i F8 2 • 


L"<JU:} — 

Cl 80 — 

M243 

MZB — 

BUB -ttEMt. 

FM8 

PSP 

PC88 • Ta X 7 • 7 7 T XK7)A 

•C4* < , M T-j-nvoi^ titz-7 r T 

fUfiA-W £ L fz fiifr £: J: j z_ 

&. 

N52 — 

PC6 

MLT — 


U' □ — h LOC 


M3 . : LOC ( 1 ) 

HUE : Sftwpa-K#-?-* 

: 1 3l$c(±7 r 4 

2 7>fA-77^^M, U3-K#^t»SLfc GET 

£ Ali PUT titz&izi&mz ti&'X<r>u 7 — K#-^- 

A iJ §-Z. btlh . 

3 > — t> > *>v • 7 r < 

4 aU{f.L/^ 3 - 


7°P +f =7 A^lJ : 

U, (31 

WJli LOF #f,). 

10 OPEN "a-file" AS #1 
20 FIELD #1 ,2 AS E* 

30 FOR 1=1 TO 5 
40 GET #1 
50 AX=CUI ( E$ > 

60 PRINT " ©■$>= " ; E$ ; " cvi=" ; A% ; 

70 PRINT " -fpos=" ;FPOS( 1 ) ; 

80 PRINT " 1 oc=" ;LOC< 1 ) 

90 NEXT I 
100 CLOSE #1 
110 END 


#hb ; fpos 
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o'j—sssy • ttoys 


APL — 

• RS-232 C 7 ^ jl- 7— :> a > • 
7r^/^m Atl'^'v^r 
tpizdb <5>:fc=N&£i£t\ 

TRS i • 

cpm - Axtmt. 

N52 LOC (#1) 

• open m£<7)zr>mm.7>mi o -e 

M223 — 

MZK — 

CBM — 

PC6 • £ 15] b. 

PC8 • 2Fl5c#M. 

MLT •*#!!& 2 li, GET, 

PUT <7)B#$OU u — K #¥•*<■§■*. ^ 
tlb. £tz, M3IL 7rT^ 
£ 0 fr £n £ & 7 'u y 
7I5:tS:#-¥-T-^X £ ( 1 7'u y 7 
= 128 '<>f f* ). 

TRS ii • ^^c^rnJL. 

PC3 — 

IF 82 -*-*:*Rll;. 

hc 

U"<JI, 3 • A £ t Pnj t . tztz :L, 7 

T 4 /U^-7 > 7 A • T 7 -te XT' 

&. 

fpi 1 •*■*:£ mt. 

SMC REC (1) 

• y — 7 r 4 

V' 

CI80 RPOS ( 1 ) 

MZ35 — 

M243 — 

X 1 Hu •y-7>xt^ 1 7r^ 

^(± 7*0 ••/ 73&£i£'T. 

MZB — 

BUB • A 7 t Is] t . 

MB1 6 •y-7>yt^ < 7r^( 

>L<7)A7j"e — KT OPEN Sftfc 
7 r ^ 7LM ATj’t' -2> BUT"!) 

1 7 $ — 3 > • 

7r4^^^L^t±, A* 
' < v 7 :fc-T$C. 

FM8 • tit' L, > 

— 'r's's^iV • 7r^ 

PSP — 

IBM55 -4#©2(i, GET, 

PUT (7) £ £ (7) u u — K 

CLfti-CifcfflSttfcW' 
7 — ( 1 u u — K = 

128 '<T h ). 

PC88 • *-£ tlHjL. fcfcTL, 7 

-5) . 

• *— *— K • 7 r T 
^ — rK— K • ^'77ri:#)4t? 
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=i — k #-5§-<7 > mm loc oo’—y 3 y 



t>oy? 


77^ )V<D~X # £ (7)^7jk LOF 


Bit : LOP ( 1 ) 


mm 


m =s 

/TJ nn 


1 31 

2 • 7t - f PUT £ A; (i GET :£(;: J: ») T 7 

3 b — ^>-> ^)V • v r 4 tv<n$k&it, -tc7)7rT^* f ffflLt 

"ROM a- ^ IJ y£* 7o/7^f-^^ ROM (tL, *— I* U -y S>(Z Lfc 6 

<o. ~fl£fiJfflT6 t. RAM ifcj&'-CSS. 


;/□ x^id^^urai* u, 

“afile” ^-(D<l:^(DL/=l— 

LOC $-#J8U. 


£ 'u m 


e$= c v i = 0 
e$=ta c v i = 

24948 

■fpc<s= 81 

1 oc= 1 

e$=ke 

c v i = 

25963 

-f pos= 82 

1 oc= 2 

e$=ch 

c v i = 

26723 

■f pos= 83 

1 oc= 3 

e$=an 

c v i = 

28257 

■f p o s= 84 

1 oc— 4 

e*=?! 

c o i = 

851 1 

-f pos= 85 

1 oc= 5 


#bs ; loc 
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U>< 7X • 7TT • y^-niy 


APL 

— 

TRSi 

• ** £ m t . 

CPM 

■ ** t IS] t . 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

• *:fc-#.n.U. 

TRSn 


PC3 

- 

IF 82 

• ** £ fa t . 

ix-c;u 3 • ^-X t flit . tz tz L , 7 
T T )\s* <= 7 > 7“ a • T 7 -fe ^ *C 

OPEN£*XT^£:V' £^7 — tc&* 
6 . 

C180 

- 

M243 

— 

MZB 

- 

BUB 

• *-Xt fflt. 

FM 8 •7>fA'77>f/H:7 
^r- 

;K— K M !f!l 9 It^ilfc7 7 >f ;u 

PSP 

— 


PC88 --^ictmt. tzfc L, r' 

4 X 7 • 7 T 4 /H^^T'^nTtE. 

• RS-232 C7; — 3 > • 


7rUw^l:li, '<«y 7 T « 

aO'M’ h*fc£iB1\ 


N52 •x-'ir7yt/^7T^ 


PC6 • 7 T T $ ft 

7 > 7* A ’ ~7 T 'i b 3 — K 


MLT — 


HC • ROM 7t7 — h >J -v x n <r> 
^liSl»)<7)S$S:, RS-232C 
tf— h CO*fc£*li'<-y 7 7 ^f- 
7<7>&£'<T 


FP1 1 • ** £ IWJ L . 


SMC — 


MZ35 — 


XIHu • b — / r>y*r)V • 7 r T 
;Ui7'n y 7gk£i£l“. 


MB1 6 • 3 = a-7-i/3> • 7 

A^^'7 7 7^ 1 ) 
'<T h». \fJ'<>y -7rl*512'< 
T K 


IBM55 • 7 7 T 

h& 


PC100 • Wc±<7)±£ £ £'<T h$c 

-eiS-T. RS-232C3 i — 7— b 
3 > • 7 7 T 'KD *!?£•(;:{*, y<-y 
77^')^ h 


MSX — 


— 200 — 

ft -tr >y h • P — K CLOAD 


: CLOAD “ test ” 


7 a 7 7 


mm 


JjJz'vY • t— - rfrh-rv 


1 


fimm* )'Cffl£tl fcro UEolt/: 

n#(i, “Found: T'n/7^^” t fU* L, 

7 7°o ^'-7 a & £L"3(t fcP#(±, 

7A&£, “Skip : 7° a ?'7 

7“ a /7 # £*V\ 

£, *7J*6[Z ^ -t U £l*r#? ')TlrZ> (7° a 
^7A(ir^$^l^> ). 

(STOP) 4 — £W-t£ “Tape read Error” 

tmmztiz. 

tUz-vY • 7-7°lzte*rtL^7°u ^7ASr^mi-<7)Cf0f-j. 


^ h- #<J i TEST cLl^o ^fiij(7)3/n — 3 ^* 0 □ — Kif 

-5. 

c load "TEST" * 

Found: TEST 

C>k| 


#M : CLOAD ? , CSAVE 


•*> D 


Triz'yh • □— K 


APL LOAD 

■ro/9A«liftJgL*v\ S*fe 
t fefr o c-r-*f— #Srmt-. 

• CASO : 1 &. 

•■/o/ 7 A^|»&tl.L ^7J 

(c l^ott 7:7 °d /7A^ 0 — Ki" 
&. , R ^ d- YLtzfe 

■t cmfr-fz. 

• LO. £ 1'7 

TRSi • *SCt |5]t. 

cpm • Ai/jfL, 

CLOA D * T®?IJ i & . 

ci8o — 

M223 — 

M243 — 

MZK LOAD /T “TEST” 

• M£fi*££|H]L. ^D/7Ar, 

MZB • MZK tmt. 

BUB • 4: £ t InJ L . 7 — -T - V 

z3-r* *fc$s \z l x & t, mn 

h . 

CBM LOAD “TEST”, 1 

• , 1 (±WH&’C£ h. ^D/7A^t 

7 — 7°_hC0^7Jc7) 

7° a / 7A £!!%<£<■ iAL\ 

FMs LOAD “CASO : TEST” 

• £isj t. fc£TL, ROM^e 

— Y<X>t £ co<^ CASO : (iftw&'C 
§-5. £*:. 7 p n/7A^li:M 
*e^4-v>. 

PC8 • 

TRSn — 

PSP - *-*:t\ii]t. tzt* L, 0 

— Yffli&T Y ^<r>Tu 7 

7 A<7)CSAVEI#c7)|$#?T 

ttz, , @T'm 

A : .^> basic 

^tn- KT£ <2). 

PC3 CLOAD TEST 

• 7° O r7A^(Cij|^fO’-( ” ){*V^ 

4*^'. 

•T—9, 7 , P/7i,(7)^HD 
— 

• 7‘ O /7AWO - K <X> t § , T'— 

Z 'JT$n4-^. 

. 7’o /7 A# £, M-*7J 

U E'7it^7°o /7A?: u — Ki“ 
&. 

• T'— ^7)D - K <7) 7; £ , WZ%£% C 

:cT)^7'D/7A 
(i 7 |JT$L^-V\ 

• 7'- 1"£ £, 
oit^7'-?£i£$c(co- Ki~&. 

PC88 LOAD “CAS2 : TEST” 
•^JfctrHJL. tzt* L, ro/ 7 A 
£<7)b1jJZ CASI : <t 1200 

rK— , CAS2 : X' 600 tf— <7)ig £ 

T'7 — 7°£‘^ o— Y-f2>. ft Jftlz 
-t'<X(X>\%\,'X'<'Z> 7 r 4 7U£IJH 
L&£'\ , R £H 0 v*;fc£ 

£ To — Kf£i~ 

$&fe^il^7’a 77A^^|olt 

IF82 LOAD “CAS1 : AFILE” 

• ^£>|iiJL. CASl : (iW» &T'£ 
4. 

' N52 — 

PC6 * 7 , d/ 7A^ ®W^i" -& 

b Jti f7JC0 7 c o ^'7 A 

U-<7Ua LOAD “CASO : TEST” 


— K CLOAD 


CLOAD* gii?ij£ <>: i“ <2> £: T'— MSX • 7“o 


MLT — 


HC LOAD “CAS1 : PROG1. 
ASC" 

• CAS1 

• PROG1 liro /7A^. 

• '&mi JUHlitttElk. 


FP1 1 LOAD “CASO : TEST” 
•7D 7 t'-fa^ ZtlX 
v^-^ffi’fCASO : (iW»&'C£<2>. 

• 7“a r=7 2*&<nfii}lz (F) £fttt 
& 1 1200 /i< — , (S) £{+lt<2 > t 
300 X— <7>i££T'-f — -7^ ^ a — 
Ki~ £> . < 2 > £ 

/E -i v 5 e(Z |a£ ') . 

•^D/7A^ ftnftl" -2) £ WZJlw 
Wolt/:7”n /7A^a-Kt§. 


SMC CLOAD “CTR : TEST. 
BAS" 

• T'<J >) 

# -te -y h • T — M&ffl'C 
^ - 2 > . 

• #«&*f & £ c rt £ n b . 

tz /Z'L, 7°a /7/v j&f Uo/)' £> &• 

t+*l(±V^ >J 

• SAVE AUTO * 

h frXZ -2>. 

• LOAD if&ffl-C# h. 


MZ35 — 


X I Hu LOAD “ CAS : TEST” 
•7 T U^.^Wtl.L iri-ftJU 
>£ot+ Tz~7 r 4 /u £ a — Ki“ 2> . 


MB1 6 — 


IBM55 — 


PC100 
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ZJtzwh • □— K 
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tJ -fe *y h • -fe - 7 CSAVE 

: CSAVE •• test ” 

mm : x 0 _t<7) BASIC 7° o /7AJ t) -fe y h • T — 7°(~ £ . 

* 1 (”) TH^ft /:7 'd/7A^T', -/d ?'7 A 

- 2 ). 

2 7°u 7'7A^{±fpj3t^'C'i cfc V'**, 7;fc^SJai$Ji»Jl$ftS. 


^ m : TEST (fit BASIC <£>:?□ ^7 1z 'V h 

•y— ^icteifrrs. 


list 

10 REM test pros ram 
20 PRINT 11 MV PROGRAM NAME IS TEST" 
30 END 
Ok | 

csave"TEST" 

0 k| 


#fig :CLOAD, CLOAD? 


Id- tZ'^h • -tz-7' 


APL SAVE 

•«£ln]b. fw L t 7-D/7A 

a^> t o tz -r+r-w £ m -r . 

• CAS1 : h. fcfrtt 

tttmt. 

SAVE “CASO : TEST”, 
A 

• CASO : 

•mft, A 

t'7’D/7A^-7't^. 

t7*D/7A^ 

•t— 

• fB&ISA. 

TRS i • *:££|Hjb. 

CPM • *:£<>: Ih] b . ftft'b, 7° 

h. 

M223 — 

C180 — 

MZK SAVE/T “TEST” 

M243 — 

CBM SAVE “TEST”, 1, 0 

•tttmt. tit* l, ®i*>gi&, 

C7)i £-fe — 7'c7)^;b») (c EOT(t. 

> K • tr • t-t 0 ) vwz&t 
ft, o £ £ a^ft&v'. 

-5 t 0 iz g£^ $ ft £ . 

MZB • MZK £ |WJ b. 

BUB -^^ifHjb. 

FM 8 • U'OVs t fa] b. 

PSP CSAVE TEST 

• [sJ b. ftft'b, 7 " 

D 7 7 A £ ii J0:* 8 SC?- T& 

h. ^;?lffiff( ,, )t7 , o/7A 

PC 8 • 4^#M. 

TRSn — 

PC3 CSAVE TEST 

• fe»BH4&i#. SETl^tcfll-MFSrtfj 

. g5^T'-^^7“o 

• a ( * ) gy-c* 

-7'i-&. 

• 7-0 r 
Ku X, 

'<4 h«cSrl&5ei--6. 

• CSAVE® irUh mft, 

• 7n /7 H 

*Hi4^trnJb. 

PC 88 SAVE “CAS2 : TEST” 

. 7o ?'7 A£c7)ifrbl CAS1 : ^-T 
£> 1 1200 rK — , CAS2 : ftht 
600 *— ■e»irt$ft&. 

• miz, a 

f&*rt£ft, , P ZWlf&t PC3CO 
CSAVE @ b [hJ b. 

N52 — 

PC 6 • t ThJ b . 

• CSAVE * g£?ij£ ttSt, T 
— ^dO-fe — 7't «Tb£. 

MLT — 

IF 82 SAVE “CAS1 : TEST” 


jj-t'y h • CSAVE 


HC SAVE “CASO : ABC" 

ih. 


FP1 1 SAVE “CASO : TEST”, 
A 

• -$C%UZ A £ftlt h £7**—^ 
X'-Tv 7=7 ASr-te — rtS. 

■f* £rt»ffl3S. 


SMC CSAVE “CTR : TEST. 
BAS”, ftyjfi TF^, *»TK 
u X 

• Slfflfrcogjtz /A Srfttt* £, T 

£ £ PC3coCSAVE@ £[5jb:i£ 
t<X^h. /C£#tt£ 

r' 

'<>f £ tf-te -y b*'' 

ttsestt*. 

• 9 4 £ BAS 

• Ttyfir Ki/Xt Ku x t^b 
^$^7 K U Xffl<7)S X: »J COft 

BASIC 7°u [B]H#U 


MZ35 — 


XIHu SAVE “ CAS : TEST”, 
A 

• *-rts 3 >-C'A t, T 

X*-M5$£S:‘), £'<4 

u M5$ t & & . 


MB16 — 


IBM55 — 


PC100 — 


MSX CSAVE “ 7 T 4 ”, 

Ml 


Ml {i^-U-Ft', ICO ££12 
00,-tr— , 2 <F> £ £2400;K— . 

Ltz £ £ , SCREEN :fc<0;K-u 
— h^5efft£4*S. 

£ £(i 

SAVE^C^r^o. 
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Zrtzwh • iz— "7' 


t) -fe "j h • p — K . i) 7 -? 4 » CLOAD ? 


Jfcit : CLOAD? “test ” 

7°u 

I ujico-ro /7At, -b-rL^^-t y h • t-y±^yo / 

7A £ <7)Jfct£>fcfefiE £*?-?. 

4#<t : i 70/7 a £ (i 6 £'f- £ T'?m T-, ZH VJM f 2 £U&. 

2 / >j |A] co -7 u / 7^i, 'iimo ; ( ” ^ 0/7 

-t ■•/ h • 7 — 7 _b 7 > 7 u /7 A <!: £Jfr&b T, Ut *l(r‘Ok", 
it o T t ' tl t £ “ B ad ” t llllJ Ifii ( C m 1j 2 il%. 

3 jj+i'vY • 7 — 7‘_h<7) 7 C o 77A[1 d- b" £ ;f l £: t . 

4 7-d/7A^II-:L<7-7|: £ tltzt' £ m i&l- &cr>lZ ffi flj 

•e* & . 

ffiln ’ — 3<7>-r- 

> £ Jtfcc L -5> L > . 

2 '-^x -y? • -y-A in^ii •■; -v/jufti-* ~ t. 

m >) 


m b I9J : TEST f, wicD^— 7bLcD7”D^'^Acbc^U L 

cload?" test" * 

Skip: TEST 

Tape read ERRCIRI 

Ok| 


cload?" TEST" 
Found: TEST 
Ok| 


#BB : CLOAD, CSAVE 


^rtZ'Vh • □— K? 


APL - 

PSP • — £Scb &i'i#J.7 — • y 

•x-fe— L, 

<£>. 

TRSi • 'l-Ztimt. tzt' b, 7 

7 4 ^ £ -fn/E b ^ , 7 — " 7 " 

_h< 7 )ili-frJ< 7 ) 7 "U / 7 A £ & . 

PC 88 LOAD 7 “CAS2 : TEST" 
• 'KAlb r«J b . L , 7 ° a 77 A 

ftTMjijU CAS 1 : , CAS2 : £fT 
(t&. i-^>b, 1200/600 ,-K— T-Jt 

■&-r &. 

CPM • fil] b. 

M223 

MZK VERIFY “TEST" 

• trsi tmt. 

N52 — 

PC 6 • TRS 1 t Mb. 

CBM VERIFY “TEST", 1 
• kxtmt. tztz TL, lfi&n&T' 

b (OO)ie (T^u • K)rt f t£ 5 E$ 

tlh. 

MLT — 

HC LOAD “CAS 1 : I’ROC.l. 

ASC" 

* b &.* & 10 Error 

pcs • 

TRSn - 

FP1 1 VERIFY “CASO : (F) 
STAR" 

■77 / n'&%iz&£tiZ>'*') 7 4 
i-f-i y 7 -+f-A 2) £ t tlZlj-t-v 
h • 7 — 7 • U =7 — y J •. <7) 7 t >f 

;u £ 7 - i y 7 -t h . 

PC.i CVERIFY TEST 

• CLOAD <?)*%& 

1 F 82 • 

3 LOAD? “CASO : TEST” 
• TRS, t Mb. tzt* b, CASO: 12 
-1). 

SMC CLOAD/V “CTR : TEST" 
• t h .‘‘.Ui CLOAD *• #M. 

■ LOAD/V “CTR : TEST" ^ f^JH 
S. 

Cl 80 

MZ35 

M243 

XI Hu LOAD ? “CAS : TEST" 

• /^'J±^yn/7A 

tz~7 t 4 . 

• £, ^;j£zEo(t 

• VERIFY i:InJb^ t. 

MZB • MZK t |3j b . 

BUB • x — 7 • u 3 — 

FM8 • u -< /Us i: [wj b . £: A: L , 

"CASO : ... " (2 tMT'£ & . 7 o 
77 Afifi 8 Sltit. 

MB1 6 — 

IBM55 — 
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*-lry h • P — K • ^ U 7 7 CLOAD ? 


tJlZ'i/h- • C 


PC100 — 


MSX 


• TRSi fcfifJ t. 


— K? 
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tJ-te'y h • r — ZfCD »J - K • * — 7°> ROPEN 


Bat : ROPEN “ PILE ” 

I I 

^h&pT 


*7 T "f 

’ tf-fe-y F • T— -r<r>T— 9 tthtzth, 7r^^t- 

2 yo LOAD i)<hh. 

3 ROPEN £^fTbfc*>fcli*]&1‘ CLOSE L^lt tUXtn 

4 ^7l> • ^ — #, INPUT/T 

^ <7) HU IZ w <7) pp ^ £■ jo < . 


yP^"-7A^IJ I “TEXT” iC^IZ'vh-^— 

10 ROPEN “TEXT 11 
20 INPLIT/T X* 

30 PRINT X* 

40 CLOSE 
50 END 

n ^ m 

PLAY 

FOUND TEXT 
LOADING TEXT 
ABCDEF 


#J|B : OPEN, LOAD, WOPEN, CLOSE 


u-k • t r-yy 


APL OPEN 

PSP — 

PC 88 OPEN “CAS1 : FILE” 
FOR INPUT AS 1 
• «&***:*:£ El L. 

TRSi — 

CPM — 

N52 — 

M223 — 

PC 6 — 

MZK • 

MLT — 

CBM OPEN n, L “7r^^, 
S” 

• tztz f L, (n) (i O *7 ;u- 7 r >f ;u 

#-5§\ 1 

h(7)t £f± 1 ifcii 2 . ttz-7r 
>f £ 7° 

O 7*7 A • 7 7 >f x — 

7 * > ^ 7 ;u • 7 r 4 'Ur) £ £ W £ 
}hae READ tl & . 

HC • p^Us t\s]t. 

FP11 OPEN “CASO : FILE” 
FOR INPUT AS #1 

• mwtttt iHjb. 

SMC OPEN/I “CTR : AFILE” 

OPEN/R “CTR : BFILE” 

• t In] b. 

PC 8 — 

MZ35 — 

TRSu — 

XI Hu OPEN “I”, # 1, “CAS 
: TEST” 

• mmtttt iwjb. 

PC3 — 

IF 82 -PC 88 tISJb. 

mbi 6 — 

OPEN “I”, 7r^^# 

-if\ “CAS 0 : ” 

• IM<i#:fc£[S!b. 

IBM55 — 

PC100 — 

C180 — 

MSX OPEN “CAS : 7 7 ^ /U 

t, "FOR INPUT AS # 7r >f 

• «fl 6 U:*:fc£Elb. 

M243 — 

MZB ROPEN/T 

■ 


BUB — 

FM 8 OPEN “I ”, 7 7 >f 'U# 

^•, “ CASO : 7 r >f ” 


trte'y h • h • *-7°> WOPEN 


MjX. : WOPEN “ PILE ” 

I I 

^W&nT 


77^^ 

: *-te *v h • -r-rtc, adMEifr'frxh 

*NfSJ[ : i f-^i^7 7 ^^Ltt-y>ta. 

2 -TO SAVE 

3 WOPEN <7)*> £ (±*‘4rA,i* CLOSE L £> &v>. 

4 ^-tvh PRINT/T nfr^p- 

co flute - £i* < . 

( " ) T'<< iltUJ: t ESUT* . 


7°P A0lj ! “ABCDEF” £• “TEXT” t. VA O 7 7 -T Jb 1C * 

^ 1C *JlZ'y h * — 

10 WOPEN "TEXT" 

20 X $= 11 ABCDEF 11 
30 PRINT/T X* 

40 CLOSE 


m *r m 

RECORD. PLAY 
WRITING TEXT 
READY 


#Jjg : OPEN, SAVE, ROPEN, CLOSE 
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3>-rh • 7r-;7> 


APL OPEN 

• mntltttt IWlt. 

“CASO : 7 7 T /w£" 

TRS i — 

PSP — 

CPM — 

PC 88 OPEN “CAS1 : FILE” 
FOR OUTPUT AS 1 
• foifelitttmt. 

M223 — 

MZK • *:fc#RR. 

N52 — 

CBM OPEN n, 1, 

S, W” 

• fzt*L, n (± o v ij ;u • 7 r T /u 

b<0£ £{± 1 ifcli 2 . £ fc, 7 
r T n,£<7>&<7)S £*&5£L£r^£ 

7*0/7^ • x 

— • ~7 t 4 tw>£ 

Sr^Lirv^t READ 
tLh. 

PC 6 — 

MLT — 

HC • u-<;u 3 £ W\ t. 

FP11 OPEN “CASO : FILE" 
FOR OUTPUT AS #1 

• mmi&ttt mt. 

SMC OPEN/O “CTR : AFILE” 

OPEN/S “CTR : AFILE” 

• ®.mt*-x£mt. 

PC 8 — 

TRSu — 

MZ35 — 

PC3 — 

XI Hu OPEN “0”, #1, “CAS : 
TEST" 

• mmtttt mt. 

IF 82 *PC88tlWJt. 

U^JUs OPEN “0”, 77^H 

“CAS 0 : ” 

• mmtttt mt. 

mbi6 — 

IBM55 — 

ci 8 o — 

PC100 — 

M243 — 

MSX OPEN “CAS I 77 >f 

FOR OUTPUT AS # 7 T T ^ 

• mmtttt mt. 

MZB WOPEN/T 

• mt&itttt rat. 

• Z.*>4tt4t\±T 4 7 . 

BUB — 


FM8 OPEN “0", 7 7 ^^f, 
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tl -fc-y h • t- — 7° • 1^3 — ^"CO^E — MOTOR 


^-57 


N52 


PC6 

- 

MLT 

- 

HC 

• V'OVz £ fnj b. 

• -7^ 7o • 7^-fe 

•y h WIND. TAPCNT 

hij" TJ'^ i %> . 

FP1 1 

• U ^<;U3 t InJ b . 

SMC 

• u ^<;U3 £ l»J b . 

MZ35 

- 

XI Hu 

CSTOP 

• T — 

r^tr$T xl>77 , HS. 

CMT = 

= M 

• tj -t 

•y Y <r>M&ttWc'AL-t %> . 

M = 

1 ii 'J ^e— b £ OFF 

M = 

2 (i 'J -t — h £ ONCtl). 

MB1 6 

- 

IBM55 

- 

PC100 

- 

MSX 

• ** £ TH] b . 


: MOTORl 

I I 

l tth v Y • r — 7' • P 7 — (CT) <7)^— mm®. 

: 1 MOTORO "C-t-f 9 *£ OFF, MOTORl Xr^ — ? £ ON 't' <& . 

2 t, i - £: ;b -t — :? * f ON <50 

t £ OFF, OFF cr>£ £ ON iZ'f & . 

3 CSAVE, CLOAD ^fr^>HUU, MOTORO £ fUi 1 £ i'iifilX'Jr) h . 


'ir W\ : motor 0 XCTO)^ — ? ^ OFF 1C Ufcf&T', “TEST” 
^ CT frFjD — K"t^>. 

motor 0 * 

Oki * 

c load "TEST" 

Found: TEST 
Oki 


#HB : CSAVE, CLOAD, CLOAD? 


APL — 


TRSi • OUT 255, 0 t't: 
OUT 255, 4 tt7. 


CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC8 


TRSii 

- 

PC3 

- 

IF82 

• * £ £ l-J b . 

U' ''ZJl'.i 

it >, 
iT7\,Z 

• MOTOR ON T^e— ? £ 
MOTOR OFF T*:—9£ 

C 180 

- 

M243 

- 

MZB tz tz L , REW, 

FASTT ^-te -/ h • t — 7<7)-V-& 
‘) / t £'L£ f -C£ &. 

BUB 

• a< z. t r»j t . 

FM8 • u~c/u 3 £|SJ b. 

• SKIFF iz J: •) i]*z ••/ h • -f — 7 
<nii([}\\ Ifr-ai. 

PSP • MOTORO'C^t — 9 £0N, 

ti&izttivw-n&m&Vin t, 

-t — 9 ii OFF \ztz%>. «j| 
wft'C * £*v*. 

PC88 

• ** £ !"J b . 


mwfrvm CONSOLE 


Bit : CONSOLE 0, 25, 0, 1 


©nftiil 

4 #® : i m Kntmx-Tsfv- l , m 2 <r> 3 iisre x ? 

o— /KOfT3&£4t^1'&. 

2 ^3<7)^lt(i7T> 3 > • f^X^f 7 ft, 1 -Ci®ffi 

<t)W:TI5<507t > ? x a > • * — <7>FT#£^L, Otat^L 

&• i\ 

3 7ft, 1 -COM* *7— • ^ 
— K 0 tei^e- K m 4 ~ & . 

^ io i 1 ’* ^ P — jiiifti^Aitt^ff U ti — 7 twmi)} L fcKJMScff Sr tf *7 t , iti 1 -. fV/. co f f 
A‘iW x. , iii K fcfcco ff * f 1 i & c t . 


■7° □ ^-7 a#ij : kcdu a— ;xt, ^y-tz— >> — 

■? jutM 

10 WIDTH 80,20 

20 CONSOLE 0 , 20 ,0,0 : COLOR 4 

30 PRINT " ** TEST PROGRAM 

40 PRINT " FOR CONSOLE COMMAND **" 

50 COLOR 0 : END 


m ft m 

■a»3ai^38H«3 ^W 3Bliira2l«S2 


#,41 : COLOR, KEY, WIDTH 
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□>v — JU 


APL — 

PC 88 • 

TRSi — 

N52 • 4^4C £ F»J L . 

CPM — 

PC 6 • %4 <F>'*=7 X — 9X'\ (i 

*— • ? ij v 7 if ON, OtOFF; 

M223 — 

MLT KEY ON KEY OFF 

• KEY ON iz J: •), 7 7 >^ 3 >* 
3?- — co |*r# £ tij ifti F lit (c L , 

KEY OFF Ciot, ^L&V'. 

MZK — 

CBM — 

PC 8 • T£#J!(L 

HC 

TRSn — 

FP1 1 — 

PC3 — 

smc • m 1 <7)5l«rei 

• m 2 £ 

JSseL, e8 3*>SI*5rex?o— a, 
fr3&£ttfte't*S. 

• W> 4 coSI&ti X 7 a — ;l • K 

£4£>e4-£. 

• 07 -v» > k • — K *c(i , x 7 

a — ;u • 31 IJ Tfi'&'fC 0 ~25ff(C 
aX>E i> . 

1 F 82 • ®4 

<x>«jl2&T-X ? 0 — /KX>js&£ 

(255 -C&i &*<''). W«& 
-t Z> t 0 <r> : j > ~r • x ? u — jv 

( Alt ii idi V ' ) (- UX. 5 e £ tl -2) . 

•*-*;£ |s JL. ^ 

7 — / 6*^X4 7 f 

C 1 80 — 

MZ35 — 

M243 — 

XI Hu -mi, '5(5 2 cOdl^cT'®m 

>^c^, m3, m4<504I^T'7KT : 
^TTC t] -7 

.AloC $r ■^h ae4~ -6. 

MZB CONSOLE SO, 25 

• &'frJ<7>#r5e£S <>:1-<£> £, X7n 
— tvn VWbhft 1 rs r FT £ 4" . C 

>f <x>fr&£#t 
^4--&(80i/c(i40), R t^Tht 

n it 

h t / HsWvAl-f h . 

MB1 6 • MLT t l»J L. 

IBM55 -MLT^piJL. 

BUB • t |nj L. 

pcioo tzt*L, m 

3, m4 #0co4l^(i 

• V T > y 7 iz 3 > • 3f- — • x Tv f 
cOf^io •) (C key on 

FM 8 • 4: £ > IttJ t . 

PSP — 

MSX • MLT £ |i«j L . 
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wmnmik erase 

Mi & : ERASE 

ffitnt : CRTcoiHBn 

: 1 CRT^rBBaS:— t 




10 

ft- 10 


20 

PRINT 

"ft=" ; ft 

30 

ERASE 


40 

PRINT 

"CRT 7 V3$*3 l 

50 

END 


m 

ff m 



CRT 1 

i>3^3 V9. 


#fl§ : 




apl • mm* l . tit* l , 

CALL-958 


TRSi CLS 

cpm • mm*L. tz t* L , 

PRINT CHR $ ( 12) X'[sim<nz 
t1j<X$i>. 

M223 • mm* L. tit' L, 

PRINT CLEAR 

X£ b . 

MZK •&*££: L. /w /w L , 

PRINT “(C)” -C'®^c7) ~ £ frX £ 
b. 

cbm • mm* l. tit' l, 

PRINT CHR $ (147) 

£WX£ b. 

PC8 ♦ CPM £ |b] L. 

TRSn • TRS i £ [SJ L . 

PC3 fcfcTL, 

DISP CLEAR X'fflffiWZ tti<X 
Zb. 

IF82 • TRSi tlHjll. 

I*"<jis3 *TRSi £ ® L . 

ci 80 • 

M243 -M223 £[sJl;. 

MZB • MZK ^ ® L . ttz, 

PRINT CHR $ (6), GRAPH 

c n £ ~?x t\s\m<?>z tvxz b . 

BUB -CPMt®L. 


FM8 • f£ Ma &* L . fc*5L. CLS 


0 gtzli CLS T'fsJ^cT)- 
£ “5> . 


psp 


PC88 -mm* L. fc*5L, CLS 
1 Tt * x Hii® £ 

CLS2 y ?®® 

CLS3t'f /77^ 

•y ?ia®^p]7j 


N52 • L. /w f' L , 

(FNC) ^ — 4- c 9 ') r ) A-—, £ 


tztt, 

, PRINT CHR $ (12) X\si 

m<?> 

Z t &XZ b. 

PC6 

• CPM tffl t. ttz , 

CLS 

MLT 

• TRSi t. 

HC 

CLS 

• X 7 0 — > X> A £ 7 0 T i~&. 

• PRINT CHR $ (12) XL «T. 

• GCLS t/7 7^ y 7t0®X>^X> 
7'J7U'^. 

FP1 1 

TRS, 

SMC 

CCLEAR Nl, N2 


• ^^-77 ?D§i®_hX) N1 fffr £>N2 

fr & . 

• N1 £ ■& <5 fi£_htT £ ; JttAE L » 

N2 «:^"&i-2>^«:TffiTS:4&5E 
L fc w i ic $: * . 

GCLEAR Nl, M2 

• -32768^ Ml ^32767, 0^M2^4 

<7> X* (■ 1 * L (if * £* t ' . 

• M2 -eltfiii £ nfciiwJMt# £ frv \ 
r^-7 ^ ••/ 7®® £, M1TT&^£ 
Mi fe £ iii® co fe*c “? *5 & . 

• 3l3&££w&i-& £, 

GCOLOR *tt&SgL*C#)5/<7 
7 • /77> K • ^7-, ifcti. 


ERASE 


GCOLOR :£*<$: ttfUf M1=0, 
M2=0 tH^$;K.&. 

WIPE 

7 = 7-7 4^9 

mnfk'm&to 

mitt*. 


MZ35 -PC3£®L. 

CLS 

• /77> f y ?jlj®<7) 7 . 


XI Hu CLS n 

• Hi® £m 
i“ -2) . 

• n = 0 /77 4 "/ 9 1, 2, 3 
n = 1 7=7-7 4 v9 1 

n = 2 /77 4 y ? 2 
n=3 777 ^ 7 n 
n = 4 777 4 y ? 1, 2, 3 if 
X h 

h <7)^$: mi". 
•firXHi CONSOLE 

• 777^ y ? (i WINDOW 

t ^ (i x> >MiSH . 


MB1 6 -mm&L. tzt* L, CLS 
0 X 7=7 -7 4 -/9 , t ^ X h rAjHU 
®, CLS1 X7=7~7 4 -/ 9 , 

CLS2 T-f ^7 1- Hi® Srm-i*. 


IBM55 • CLS XY*m<nz. tWZ 
h. CLS nCii^t WIDTH t 
T'g&AE iij® <7)SIS5>^ti 

$rmi"^ ttfXZ h. 


PC100 • a£ =^3 £: L . ^/w'L, CLS 

(i ? o — ;u • *y 4 > K 1*3. 
CLS<2&jO(i®®4H&<7) 9 ')T. 


• trsi tmt. 


MSX 
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XI/-X 
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Wm<D$i&m*i9C7£ WIDTH 


: WIDTH Al, AZ 


i*r«&»r 


mm : UDillli h nX/Ji't* h . 

W& : i ( A2) fi, 20£25£^5 e'C 1 tr<7)ffrS c (Al) (i, 

80, 72, 40b36£^5E*C£ S. 

2 i> X t T#) •) , 1 lr^ffm(i 40 T -6 . 

3 zti£ %\r?r h t , miirri t± ? <J T £ n 6 . 

4 jflijiTii^fcL^I^ -fa I#* fclMJ-efcS. 

5 »jl2fc£: 


7° P ? -7 A#lj : 7? □ ^AM(7) U X Mi 20 ft , 80 

CDICT^-dTI/^. 

10 WIDTH 36,25 

20 FOR 1=1 TO 5 

30 PR I NT STR I NO* < I ,"?">; I 

40 NEXT I 

50 END 


rf 

? 1 

—a -“> v 

??? 3 

-~> V V 4 

oo’ — — 


#fls : MARGIN, MARGIN #n, POKE, CONSOLE 




APL POKE 33, Al 
POKE 35, A2 

• Al T1 

1 ^A 1 ^ 40 . 

• A 2 T 1 iffij ifii InxE, 
0 ^A 2 ^ 24 . 


TRSi PRINT CH R $ ( 23) 

• 1 ff£ 32*-/'-U X § & . fc A5 L , 

W#HI 9 r^I± 64 *^, 


CPM WIDTH M 
•15^M^255 T% 

•J ?-> £tR1- £ XXbh. 

• 1 ff 72 ^C^T*#> < 2 > . 


M223 — 


MZK 


CBM 


PC8 • 


TRSu PRINT CHR $ (M) 

• M (i, lEtl Pr80^;^, lFtl 

rf 4 ot^^^t 2 >. 


PC3 /w/wL, CRT 

Mfjklt l ^t 40 :*:^T*> & . 


IF 82 • fztz fL, 1 

(Al) li, 80i^(±40* 

' h . 


WIDTH M 

• M (i, in htz ») co^r-g iX% 40 
^^li 80 ^T'#)- 2 >. 

• tr&ii SS: 5 £*C# 


C180 MARGIN Al + 3 
• 1 —80. 


• M E RGIN £ $£ f f L & v ' £ 80 > & 
■ 2 > . 


M243 


MZB CONSOLE C80 
• 1 fr80 t 1 ft40t^^#) ») , 
lmott-W^li, C40 


BUB • tzt* L, 1 

n<vffi%c (Al) ii, 80£fcJ±40:Sc 
^f-Xh h . 

• 1 fr 80 £^T' 25 Pr 

6 . 


FM8 • «C£lHjb. tzK b, 1 
fr*>tir*MAi) fi, 80£fcl±40:fc 

^xhz>. 


PSP • *££lHjb. fc*fb, 1 
*T<OtfT& (Al) tn%l ( A2) <7)d§ 


Al 

A2 

80 

25 ££(±20 

36 

24 i tz (il9 

40 

6 tfzlt 8 




PC88 • £ £ t |h] b . tzt* b , 

*<?> b & . 

OA 1 I: 7 t^^ • T '4 x ? I) 7 ° 

?, A2 C-+M X'£-$-;i & t , Al 

i:^a/:f^'Mx (-r»J>^ 

3 > • jtf — 

h) /< 77 tW^ 

£13:^1“ 2>. 0 ^A2 ^255. wm 
a&Ttili 255 Xfrh. 
0AlC#77>f^#t. A2(--*b 
T X*5-z_Z>t, Al TfiJ ») 
btlTw|,/< 777 i:WU, * 

£ ^A 2 -C^& 5 c“C^i>. 


width 


0 ^A2^255. fcDOjgShEli 255. 


N52 — 


PC 6 


MLT • IF82 t THjb. tzt* * U A1 
>A2 


HC WIDTH Al, A2, A3 

• ? U -><7)±£ £ £, 1 ff 

Al ^-T'A2 Lftn /E. A3 fi * ? 
o — ;u • - 7 “— i/ > T% fifij ffi c 7 ) 

• Al(i20 — 255, A2(i4~255, A3 
(±l~10<7>®iffl £*r&. 

• oft 7" yf X 7 U ^ |I ^ mij t 5" I i \ ( il X. 

h. 


FP1 1 • p^;u 3 tmt. 


LWIDTH M X-r ') > 7<r> 1 ftcr> 
l< £ h . 80 i 

£: (±132. 


SMC 

• CONSOLE iSC'C't&^'C 

£ 4. 

fi/l'L, ff*ScIi25lfA5tt-e 

-2> . 


MZ35 

CHANGE DISP’ £T-'aE& 

«r«£-5 


XI Hu 

WIDTH 80 

• 1 mo^-t 1 mo^^5. 

mbi 6 

• u -<;u 3 £ [SJ t . 


IBM55 • 1 ^ A1^80, 1 ^ A2^ 


24 

PC8860O, ®7)I$hE 
frtbh-h*, ©U-t 7 7 Dt#^(J 
7 s -C'< 50^^^T'^ &. 


PCI 00 • PC 88 <h IuJ b . tfr^Sc, fr 

(i*<o £ a ») (fir 

Xff). 


$1 


80X25 

80X32 

80X64 

90X25 

90X32 

120X25 

120X32 

120X64 

64X45 

85X45 

85X90 

PC1007)rT X 
7°p umz t 
Ml- kit < It 


• WIDTH USING rt* 


MSX WIDTH Ml 

• Ml 

• 40X24-T A- 7. h h"Cl~40. 

• 32 X 24 if A - X h • -t — Ktl —32. 
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O-rKoX 


214 — 


x?a-') > yaftjjp roll 


Jf£5£:(D ROLL ON 

MB: 

© ROLL ^ OPP 

ffltMIz : crt»x?d-i) 

#it : 1 ROLL OFF cot £ CRT coMTITl^ i] — V &> 

eSctr*f <6 £ 1 ^TgU# — y;u£^^L, ROLL ON 60 £ # CRT 

£ 1 trx y ° — ;uLT# — V;u£:BfI r frf-fer; 1 ~&. 

2 J] — '/ JL#'' CRT t £ , ROLL ON, ROLL OFF lz 

ij'frtoblfi fifcfTUi ») lfifo^-y^WS. 

3 ROLL $ flfrif flli ROLL ON *<H&SR*C*fr$ ft* . 

4 SETFORM & t , ROLL 0FFi4^. 

5 CRT£®5e1 ~ Z> t £ , ROLL OFF o t M*UT*> & . 


■7°p ^t7A^ij : ^^n-u 


10 ROLL ON 
20 FOR 1=1 TO 29 
30 PRINT I 
40 NEXT I 
50 END 


fT 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
Z3 
26 
27 
29 


#M : SETFORM, CONSOLE 


a-)b 


APL 

— 

TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 


PCS • CONSOLE 0, 24 
T|hJ t Z t ■sm. fcfcfL, ROLL 

off mm t£ v>. x y o—;ui- 
**6H£#5£T£*. 


TRSn 

- 

PC3 

- 

IF 82 

• PC8 tmt. 

Is^JIs 3 

• pc8 tmt. 

C180 


M243 

- 


MZB • CONSOLE SO , 24 

-eng l -r t 'em. s<7)^4oit^^ 

fbi- i&ng 

£*£5£«TfcL fcfcru, roll off 

mm^^\ 


BUB 

• PC8 t mt. 

FM 8 

• PC8 2: IWJ L. 

PSP 

- 

PC 88 

• pcs tmt. trz, y*7 

7 4 

••/ y iii ifii <r> x y o — ; k: 

ROL 



N52 • PC8 tmt. 


PC6 

• pcs tmt. 


MLT 

- 


HC 

SCROLL Al, 

A2, A3, 

A4 



• A1 (i X y O — ;u- x t° 

— K T 0 ~ 

9 . 

A 2 it ili [fii X) <r> ti &-T0Xr 

1 . 

A3 It X y n — ;u- 

XT77X 

T, 

LCD Til 1 —20, 

CRT Tii 

1 - 

32. A4 lixyo- 

-JU’ X -f y 

-TY 

T, LCD T(il~ 

4, CRT T 

ii 1 

— 16. 


• ROI 

-L off 


FP1 1 

— 


SMC 

CONSOLE . . . 

1 


CONSOLE ... 0 

IT ROLL ON, 0 TROLL 

OFF. 


MZ35 SCROL 0, 5, 5, 69, 14 
• T 3-X h^^(5, 5)L> <fc (/(69, 14) 
LJ ft .& <h L & it ^ If 2 1*3 _h ^ Ift 

^ 1 #J'/> X y a — ;uf & . 

. 7 . y o — |Mj I ± ^ l «jl3& T# x 

£. 


XI Hu SCROLL 1 

• £, xy 

D-;Hix h 7 7"t6. 

• ' x A$kt> < lEcr>1&(n t # 

&<7>£ 

<!&*<:*:£ 3&m=.m< tah. 

tz ts L, TV t ilfct£«y> t £ <7) 
y*. 


MB1 6 — 


IBM55 — 


PC 100 • PC8 tmt. 
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□- 1 ; xtnwa roll o—ib 
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SCREEN 


MS* 


: SCREEN ( Ml, M2, A ) 

di® J K, 

1 Ml TlTfeta ( 1 #* *o25 ) Z5-z_, M2 Xr^J 7 MUM ( 1 rt‘^40 
£ fcli 1 frt>8 0) £#£&. 

A £ L tz t # , £ fzlt 0 <7> t 


< 1/<^ k * 

'<-y K 

fea — K 

7 * T • 7' 7 7 > K 

fe 3 — K 

* 4 h "/ k ^ 

« 4 fcf ••/ k * 


3 32 (3?m ^-r. 


7° □ y 7 A l^lj : uSj ifii Id £ '4- ?ij $- ^73< L , 2ft 1 fr ft 1 *'ij <7) £ 4 1 =] — K £- 

LIST 

10 FOR I =?<H20 TO &HF7 STEP 20 
20 FOR J=0 TO 19 
30 PRINT CHR$ ( I+J) ; 

40 NEXT J 
50 PRINT 
60 NEXT I 
70 END 
Ok 

PRINT HEX$ (SCREEN (1,1,0)) 

m 'rr m 

4C 

Ok 


: 


77U -y 


apl -mm* l. & l , 
SCRN (Ml, M2) i±^cr>i^fx<X> 
■h 7 — • a — K &5-Z.&. 

• SMC (7) C POINT t luJL. 

MLT • 4^#M. 

TRS, — 

HC 

CPM — 

FP1 1 — 

M223 — 

SMC • A POINT (M2, Ml) T 

&M'I4£, CPOINT (M2, Ml) 
T-*'/- 3 — K 

• Mlli 0 rf>‘^24£ X\ M2 It 0^^ 
39 ttzlt 0 *‘^79(7).mR8. 

MZK — 

CBM — 

PC8 — 

MZ35 -MZBilnJL. 

TRSn — 

XIHu CHARACTER $ (X, Y) 

• ti — V/W<7)^X?lj Yff<7)*4:^ 

& . 

SCRN $ (X, Y, N) 

• *7 — V /U <7) /£;*•?: X ?lj Y fir N it 
4 : (7) kH-z-h . 

PC3 — 

IF 82 • A <7)4t5el 

SCREEN (M2, Ml, A) 

• -t — K. 

MB1 6 • A£*'0 <£>& 

#fiA-v7 ? ? • 3 - F & z. & . 

C180 — 

IBM55 • fifli 1 fr <o24, tfrti 1 
*^80 (7) .TOT. 

• A^'O, £tz\,t'£*&Ltzt % -t 
=779- -t — K. 

M243 — 

MZB CHARACTER $ (X, Y) 

• i] — 7 MiLffli X, Y CT>^C-r- Z^Z. 
&. 

PC100 • AtfO^S^tii- < , jjyfcn 

— K (7)^ £ ii -S . 

BUB — 

MSX 

FM 8 • 4^ t luJ t. tzKL, H 

14(7)7 * — 7 y k 


PSP — 

PC 88 — 

N52 — 

PC 6 SCREEN (M2, Ml) 


t>-v juulWO) locate 


: LOCATE 10, 10 , 0 

7K¥ iliC 

filB — 

X>f 7f 

: CRT — y 

: l iM'rf #-y ;W±.6i$LT^££'\ 

^-f -2, ’ £ *C# — V ;u£ *W*t" w t i> . 

2 CSnS&Ji^'' 0 , OXthh. 

3 MBffc® l±0?i'b 24 CO mm . 

4 0 ** $>79*>ttH. 


T7°P 3" j+ffl : Wn.h (5. 0) (DttBIC (?) , (5, 5) (7Mir?.:lc ( * )£- 


10 

LOCATE 

5,0 

20 

PRINT " 

i> " 

30 

LOCATE 

5,5 

40 

PRINT " 

*" 

50 

END 


m 

ft m 



run 


* 

Ok| 

#BS : POS, CSRLIN 
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□ <7— h 


APL -ttSi-L. fc*5L. 
VTAB, HTAB T'ttfflnX. 
^itfi®^±PS(i24, Tk^fiil 
C7)_h|^(± 255. 


TRS i 

— 

CPM 

- 



M223 CURSOR (10, 10) 

• itttfiffi*)±Kt±23, 
Jil&t±79. 

• PRINT £4 , 'C<7)<M£ffl‘ R T. 


MZK CURSOR 10, 

• mmzm<7>±.mt24, 
klRJ±39. 

10 

TK^pfSliSc 7 ) 

CBM 

- 


PC 8 



TRS ii 

- 


PC3 CURSOR 10, 

• #itf£S<7>_hl&(±15, 
hl&J*39. 

10 

1 F 82 t mt. tztz l, ?K 

-m- 1 , mw.i*LW.<r>_tmt24. 


U'^7U:j ■ LOC. 


_hl»Ji(i39 £ tz it79. 

t> — V )V • *.4 -yf-(±Pgoc7)^e — 

( o u / >- 7 ') > * > r. 

1 lilt — y;u& t, 2f±I£il7' l J 
> A- > ?', 3 ti / — • ru > 

*> r). 


C180 CSR (10, 10) 

- mw.fow.ltlfrti24, 7K¥fi®l± 

1 £‘^80. 

• PRINT -X^XCO^m^S. 


M243 

M223 tmt. 


MZB 

MZKtlnJL. tit* L 


*¥tfcS<7) _LKR(i39 £ tz it 79. 


BUB 

^ jic > ng l . /z/c'L, 


— V ;u • 

■•/ -f- £ 1 -6 

C i T-*7 

— v 


FM 8 

«CilSlt. /-«L, 

m 

w&^(± LOC. 


PSP 



PC 88 

^sctlHll;. /zfcfL, 

m 


W«ftL tz*%&, 7K¥0gBliO, M 
tj — V -/ h $ 

ft'CA'&'fT <b & -5> . 


N52 

• *•* 


PC 6 


uiu±i5, 7k 

¥l5>:ift^±.l*Ui3i. 

£ tz, tj — V 

;u • 

x 4 7 -f-(±&v' 



mlt • M;fc_hrt* 1 , ixbh. 
£tz, mw.tir.wut 1 - 25 , 7 k¥f£ 
Sii 1 ~ 80 . 

• IS## — yngi.&$®L ’O'irv'. 
tj — y ;u • x.'f y -f* £; 0 (z Jh ae - ! 
a £ ii — v ;u*'TW *. -2> . 


HC • WIDTH «fr<frtz J: -MM 
* ? U — > £(±<^ttH±-&*v'. i A:, 
^1t*7k¥1£ia£ b 0 -255 <r>mm. 


FP1 1 ••*} — '/ ;u- vflit- 

v*. £tz, 7k¥fim^JiPIUi39£ 
tz (±79. 

•CSR (10, 10) PRINT 

t>tlh (±£‘(±, 4:-35r^f3] 

tii. 


SMC LOCATE (Ml, M2) 
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Jj - V LOCATE 


• Ml 0£'^79y>IM. 

• M2 l±mWiiLWX\ 0£‘^24<7)IM. 
CURSOR ON 

• * — y CURSOR 
OFF X-miLh. 

• k • x— k, r7-v»> k 

INPUT 3C £7)^1 ffX) £ 

£f±, ^ — y/Ui«^.#n-6. 


MZ35 CURSOR 10, 10 

• mm.iiLW.li 0 *^24, 7k¥f£Mli 

0 rt‘^79. 


x i Hu • *-xtmt. tzt * u 
# — y/w • XT 7fli4*v\ 

• CONSOLE T'^5e L fc 3*^ x. 0 

• CURSOR 1) [o] Llsfc*^. 


MB1 6 • # — y ;u • XT *yf-liEH 

0(50^:— 0 X'tl — y ;u 

4- l . i x-mm, 2 -ef&ii-r u > 

y, 3 u > y. 

• 77 — y;u • XT vf-X>f£lc, mm 
BBttfT, la 

Hli0-7ifcli, 0 ~ 15. 


IBM55 LOCATE 10, 10, 0, Ml, 
M2 

• l *‘^24<7>$M, 

tesii i mb 80 (r>m\m. 

•Ml, M2tc-C — y )\,<X>-h% £ £ 

^CX. & C. tfrX'% &. 


PCI 00 • IBM55 £ [5] L. 


MSX • t fHJ b . tz t* L , ?K 
») 


□"7-h 


ti-vjKnmtemmTK csrlin 


: CSRLIN 

: CRTo*-y;u«oa.*wSitfi;aSr#x4M». 

: i m±&m< o X'hi> . 

2 3l*fcti*fiWSrv\ 


"7° p A#lJ ! CRT U, 

7K¥^i ^ t: mwaz m £- m t> ~t & . 

10 FOR 1=1 TO 5 
20 LOCATE 3*1 ,2*1 
30 P1=PGS< 34) 

40 PRINT I ; "pos=" 5 PI ; "csrl i n=" ; CSRLIN 
50 NEXT I 

-m ft m 

1 pos= 3 csrl i n= 2 
2 pqs= 6 csrlin= 4 
3 pos= 9 csrl i n= 6 
4 pos= 12 csrl i n= S 
5 pos= 15 csrl i n= 10 

#HS : PQS, LOCATE 


- 219 - 


u-v) u • 


APL - 

PC 6 • tWit. 

TRSi - 

mlt • M±.iiti=r (i 1 . 

1 —25 ^ X'X'Jh h . 

CPM - 

HC • *-$Ct Wit. 

M223 RCY 

■ mammtx-, osrcys23. 

FP1 1 • tWit . 

MZK - 

SMC • *-JCt Is] t. 

CBM - 

MZ35 -rC3tWit. 

PC 8 • 

XI Hu • *-%t Is] t. 

TRS 11 ROW (A) 

•Ali^-T, 0 ^ROW( 0)^23. 

MB1 6 • MLT tWit . 

IBM55 • I . MttlS 

1 frt?24£X'X'*>&. 

PC3 POS X, Y 

• ^tYC, 
h. 

PC100 • 

IF 82 - 

MSX • tWit. 

3 • t [sJ L: . 


Cl 80 LPOS 

- mtli WitX\ l^LPOS^24. 

M243 • M223 t 1«1 t. 

MZB CSRV 

BUB tzt* L, 

0 ^ CSRLIN ^24. 

FM 8 • 4^ t m t . 

PSP - 

PC 88 •**£ Wit. 

N52 * '4 s * t IhJ t . 
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tJ-V JUCDffift LWmTjk POS 

: POS ( A ) 

fflttlli : CRT — )v<r>iM\ : .<r>mtm (tfr) £ J 5-z.Zffl%i. 

iff ^ : i teas** o X'*> h . 

2 


^° n : cRT±©aiAtfia$-^u, 

10 FOR 1=1 TO 5 
20 LOCATE 3*1, 2*1 
30 Pl=POS< 34) 

40 PRINT I ; " pos=" ; PI j " csr 1 i n=" ; CSRLIN 
50 NEXT I 
60 END 


m n m 

1 pos= 3 csrlin= 2 
2 fos= 6 csrlin= 4 
3 pos= 9 csrlin= 6 
4 pos= 12 csrli n= 8 
5 pos= 15 csrlin= 18 


#ff! : CSRLIN, LPOS, LOCATE 




APL 

• 0^POS(0)^39. 

TRSi 


CPM 


M223 

tzf' L, 

CRT cr>'}\ %cti o <n^xbh. 

• 3I&1. 

-I/O 



MZK 

- 

CBM 


PC 8 

• # >C#!!(L 

TRSn 

• 4^£iwib. L, 

0^POS(0)^79. 

PC3 

POS X, Y 

• 2s*fcXtZ, 3&&<7>0t{fcffi(ffr) £# 

£ •£>. 


IF 82 



• A-Xtmt. tzt' L, SI 

&(i 0 <F>frX'hZ>. 

C180 

CPOS 

• t X% 1^ CPOS ^80. 

M243 

• M223 t Wit. 

MZB 

CSRH 

• mm mtx-*>&. 

BUB 

* ^£>|nJL. 

FM 8 

• M223 >|nj t. 

PSP 

- 

PC 88 



N52 

POS 

PC6 

• ** tfflt. 

MLT 

• 1 T'*) h . 

HC 

• At± 0 frt?iQ&x*<nmm. 

FP1 1 

■ N52 tWlt. 

SMC CSRCLM 

• mzumt. 

• C. ^L(C|4i-Jj§ L X, /77>( • / ?/£ 

GPOSX, GPOSY 

x. ti -5> . 

MZ35 

• pc3 t m t . 

XI Hu 

• u ^<)\s 3 £ ffi] L . 

MB1 6 

• MLT tm t. 

IBM55 • &!$(,£ 1 . 

— KT-80, /77-f y ? • 

•t— KT'78T-^)^>. 

PC 100 

• MLT tlWJL. 

MSX 

• **£| 8 Jt;. 


7< h • ^ XD'X. ') Tlmfe PEN 


Bj£ : PEN 1 ; ( Nl, N2 ) - ( NS, N4 ) 






, 2 ; ( N5, N6 ) - ( N7 # N8 ) 

i 1 

•®wfr • "T ( 8 mtX*) 

! CRT iiiffi_h£, v ' < *J TCE^It -6 . J-'JTli, 1 ^ 9 

* <7) n> tL h . x'JTIi, £ *frft <n M* t i~ 6 M 

~fj BXh h . 

: 1 (Nl, N3, N5, N7 ) (i, 0£‘G79 (39) tX^HtLX, 

( N2, N4, N6, N8) t±, 0 frb24 £ X<n\$LX~h h . 

2 -*• ’) T#-^-<7Vj'£V'J2 9 

3 ON PEN GOSUB T'<7)^ U T # ^ 9 . 


zfn 


I i 0 
120 
1 30 
140 
150 
160 
170 
180 
190 


isb’ 

270 

280 

290 


s? =7 jUffl] : CRT I Z^-C h * ^AjjlU 1*^1000 

zni'p ic^-r h • 

rCRT (D TIME CO X U U 

CLS PRINT 

IpEN " 0 " , #5 , " LPTO : " 

PEN Is ( 3& , 0 ) ~(39, 1) ,2; <36, 3> - <39, 4) 

LINE (36,0)- <39, 1) , "HT , BF 
L I ME ( 36 , 3) — < 39 , 4) . " Bl" . BF 
LOCATE 3-6,0: PRINT "TIMh " ; 

LOCATE 30, 3: PRINT "PRINT"; 

ON PEN GOSUB 320,300,310 ' 

PEN ON 

TIME $=="00: 00: 00" 

N=2 

FOR 1=5 TO 1000 STEP 2 ^ 

FOR J=3 TO SOR < I ) STEP 2 
IF I MOD J =0 THEN 250 ELSE NEXT 
N=N+1 


(DX U 7&W-\±\£ t I 

(Dliti&zfu Zsfthtj-t 


NEXT I 
PEN OFF 
PRINT #5 
CLOSE 
END 

PRINT #5 
PRINT #5 
RETURN 


"039 (1-10 


" ; N 


ft tfij:(l) (zfU 

00:00i,06 

1= 353 
1= 427 
0(1; OO; 23 
1= 567 
oo ; oo : 3 l 
1= 737 
1= 797 
1= 873 
00 ; 00 s 51 

b'39 (1-1000) 177/ Ti 168 


: (2) CRT (D MA 


TIME I 
PRINT I 


#03 ; ON PEN GOSUB, PEN, PEN ON 
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APL — 

HC 

TRS i — 

FP1 1 — 

CPM — 

SMC — 

M223 — 

MZ35 — 

MZK — 

XI Hu — 

CBM — 

MB1 6 

PC 8 — 

IBM55 — 

TRSn — 

PC100 — 

PC3 — 

MSX • AXtMt. 

1 F 82 • Axt m t. tzt* l , 

i'JTSfli, 1 — 8 , 

(i 0 -639, 0— 199 i 

x<r)%m.\uxb h . 


3 • AX0 . 

Cl 80 — 

M243 — 

MZB — 

BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 
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h • pen ms 

: PEN ( N ) 

N = o ~ 5 


»« : i 7 4 Y • *<>& L><?)ffi$yazlt, h U if • -fe > X £ W"</u • -fe > 

^c7)-c% • -fe>x £(±^4 h • L T ^ «S> 

mxbh. 

2 PEN ( 0 ) f±, h 'J if • -fe >XT% ^ h ♦-<> £ ffl-f £ jft( - 

1 ) b % 0 , gij 0 t T*<50{fi£{$o -< 

( o ) 

3 PEN ( 1 ) (i, h \) if • -te^XT% 7 4 h • ^>x>7k*p/£fg£ 
?#6. fztz TL, 0 <PEN ( 1 )<79T'#>&. 

4 PEN (2) It, h 'J if • -te > X T% 7^f h • "<> X>i|ji;j^fi £ 

f#&. fw L 0 ^ PEN ( 2 ) < 24 Xb i > . 

5 PEN (3) ii, K;i,--b>xt, 7 4 h • 'O ^ffLtV'6 

W* (-1) (0) 

6 PEN (4) li, u^*-b>xt, 7 4 h • ^>X>7K¥^fg£ 

7 pen ( 5 ) (i, • -fe>x-e, ? j t • 'O cvmw ^*g£ 

m>. 


zfu V -7 A0IJ : ^□^ATI£2;fr»o 1000 


1 00 
1 10 
120 
130 
1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


OPEN "0" ,«5, "LPTO : " 
COLOR 7, 1 
ON PEN GOSUB 280 
PEN ON 
CLS 

PRINT H5 
N=2 


zf'J > 5 %>zf □ V =7 ixXfc 

^>. Z.(nzJU'J = 5 

■cfe, h • crt 

£i*xi*z> mnmit 

ON PEN GOSUB £-#Jj8). 


PRINT #5 , USING "««««“; 2 ; 3 ; 

FOR 1=5 TO 1000 STEP 2 
FOR J=3 TO SQR(I) STEP 2 
IF I MOD J =0 THEN 230 ELSE NEXT 
PRINT #5 , USING "««««" ; I ; 

N=N+ 1 : I F N>9 THEN N=0:PRINT #5 
NEXT I 
PEN OFF 
CLOSE 
END 

'LPEN ROUTINE 
ST=ST + 1 


IF ST= 1 THEN X=PEN( 1 ) :Y=PEN<2) ELSE ST=0 
LINE <X,Y)-<PEN< 1 ) ,PEN(2) ) , ■*" 

RETURN 


#fig : ON PEN GOSUB, PEN ON 


APL — 

PSP — 

TRS i — 

PC88 • PEN( 0 ) - PEN( 2 )ii< 

b »). 

• PEN( 0 )lt*Xb fHjb. 

• PEN( 1 PEN ( 4 ) tm 

t. 

• PEN ( 2 )lt&? 5C<7) PEN( 5 ) tfi] 

t. 

CPM — 

M223 — 

MZK — 

CBM — 

N52 — 

PC8 — 

PC6 — 

TRSn — 

MLT — 

PC3 — 

HC — 

IF 82 • PEN( 0 ) ~ PEN( 5 )lt, 

tztz TL, 0 < PEN 
(1) <640, Xifolt, 16<7>I3 rgrc 
#>< 6 . tfz, 0^PEN(2) <200, 
PEN ( 6 ), PEN( 7 )\t'k<r> tt5 0 . 

• PEN (6 ) It, Y ') if • -fe > X T% 
7 4 V • 'O&WZtitz b $<r>jL 

i'JTifli, 
PEN ~$CX'¥u < xi L , mt 0 ^ PEN 
( 6)^8 Xbh. 

• PEN ( 7 ) It, U 'OV • -t > X X, 

7 4 b • 'OtHVSK*: b #c7)jh 

tfz, 

FP11 — 

SMC • PEN it, 

tlZft.tzfrt'lfi'ZM'f. 

• PENCLN it PEN ( 1 ) t Is] t . 

• PENLIN it PEN ( 2 ) tfflk. 

• /7 7 4 y 

PENX PENCLN, PENY t 
-PENLIN frfflt X'bh. 
PENREAD fiiftX, 
b -oXts < ztti<‘&WXb&. 

MZ35 — 

XIHu • tzt'L, xs 

y 7 t!p'*<7) J: 7 (C fit x. h . 

STICK( 0 ) 

■ x'g>(Xf-f 7?, -f> 3f-— c7)f(& 

$\mto*<T>*-, 
IttiS 3 4 KT 4 y 71, 2 It 7 
3 4 7f -f 7^2. 

STRIG( 0 ) 

• y 3 ^f ^ y 7<7) h 'J 
— X • '<—<T)tkWi$:ft\Z>. 
OfiX^— x • '<— , lliya^f 
7, T 4 y ^ 1 . 2liy 

•y 7 2 . 

u^;u 3 • 

Cl 80 — 

M243 — 

MZB — 

BUB — 

FM8 — 


“7^ h • pen^ 


MB1 6 • N (± 0 ~ 9 . 

• PEN(1 )(i^^PEN(3), PEN 
( 2 ) (± h U if • -te > XX)?^/^ 
{£, PEN (3 )(i h 'J #•-£> XX> 
PEN ( 4 

> PEN ( 5 )iiP 

• *fe > XX) PEN 

( 6 )(i4:-£ PEN ( 5 ), PEN ( 7 ) 
(±*-* PEN (4), PEN(8)(±^ 
*PEN(2), PEN (9 Hi 4^ 
PEN ( 1 ). 


IBM55 


PC100 


MSX -g^&L. tit: fL, 

-f XT a •/ ? -y-f* • 

y n° * y K £ f ->:x> <£ -? u x & . 

STICK(M) 

•xsUfpy ?X>7jfn 

& . 

STRIG(M) 

•y'a^fXT-f x ? X) h ij >tr • ?K ? 
xoMgfc#.*. &. M ?i)'' 0 X) i; 
£x^— X • * — ''**£& i" & . 

PDL(M) 

PAD(M) 

• * -y-f* • '<-y KX>tf#$r#i.^,. 
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I 
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MOUSE 


Kit 


mm 


MOUSE 

0 




MOUSE 

1 

, 0 , 

0 

H 


MOUSE 

£ 

, A$ 

, x$ , 

7 , 7 

MOUSE 

3 

, 0 , 

100 


MOUSE 

4 

, 100 

, 100 , 

400, 400 


sagi-a. 




1 1#S*>5I&*>&v4cJ :»)£ owii^J:3[:^bnTv^. 

0 ^z*jmikLxfrbmt£±thz>. 

1 ^*7x • ij — v /\s(nf)jfflm7r;i±Lm.cr>$?cfet xY -yf. 

2 -V^X • *7 — 

3 V^x co^^jjrb^ £ aft^-f- h . 

4 v-^x- 

2 -7^xii7^f h • -Oirirtigi: < , *■ >£5 e^ 

MOUSE (Al) ON, MOUSE (Al) OFF, MOUSE 
(Al) STOP ftfa h . 

3 ^*y xrymttmzm'fMWct 

(a) MOUSE (Al) : A1=0 XC7) XjMR, Al = l 

Xttm±<n^'y x<7)Y JMm, Al =9 

T^f&LfeX^TInl^lEiai, Al = 10 (ifWJ b < 

(b) MOUSE (A2, A3) : A3 >#-!§- r-, A2 l±2~8^t 

>Wi V W) & /? # * > *<*f ZtltztZ <F>$km tm htib. 


Z7° □ +f -p a-^j : uxauj 

100 MOUSE 0 : MOUSE 1 . , , 0 ; MOUSE 1 . 360 , 256 . 1 
110 CLS 

120 MOUSE ( 2> ON 
130 ON MOUSE* 2> GOSUB 160 
140 PRINT X , Y : LOCATE 1.1 
150 GOTO 130 

160 X=MOUSE<0> :Y=MOUSE< 1> : RETURN 
iT 150 


208 

367 

344 

440 

571 

398 


#JB : 


xox 


SMC 


MZ35 


XI Hu 


MB1 6 


IBM55 


PC 100 


MSX 


BUB 

- 

FM8 

- 

PSP 


PC88 

- 

N52 

— 

PC6 

- 

MLT 

- 

HC 

- 

FP1 1 

- 


APL 


TRSi — 


CPM 


M223 


MZK — 


CBM 


PC8 


TRSn 


PC3 


IF82 


U^^JU3 — 


C180 


M243 


MZB 


• 4*3 C#M. 


KISS: SCREEN,-k 


: SCREEN 


Ml, M2, M3, M4 

^H&pJ 


mgg : /77^ y ?wmizttLxm*<n*:— 

4#®: 1 Ml TiBffi*— KfcJgSfel"*. Ml<7)ftti0£'£>2-C, 0 ti 77 x 
— • ^e— K (640X200 K -y h ), 1 li K (640X200 K y 
K 3^->'), 2t±i*##ffeS&^“K(640X400 K-y I* ). 

2 M2 THiffiXl y M2 c7)fjt(± 0 ** ^ 3 "C, 0 fii^ 

?'X 7 >f y ? • -v'X ? * Xl >y OFF, 1 (i 

i§ii£#£il^Xl -y^<7)^ ON, 2li/77^ y 7 * ^X ? * 
X>f yf<7)^ ON, 3 /77 4 -y ?--^X 9 • 

Xl y^tZ ON. 

3 M3 tliT^f >(7’-^-y, M4tlif^ X7"l/^ *^-y$: 

ztil±SI3^-y • K ( Ml = l <nt £) (Z 

•Ha aE"! ■& . 

4 M3 li/77^ 7 ^ TS # x T, 0H2 -CJ&561" & 

5 M4 fi 3^— *><7>7 % £*>'<— >'$:^-f 

7 X>fi£7!?''A-2>. 1 (i-<— >' 1 

2 ti-<— >' 2 <7)<^^, 3 (i"<— >' 1 t*<— >' 2 £ 
4li^-y'3 7)^, 5 !±-<— > 1 £'<—>' 

6 ti-<— >' 2 £"<—>' 3 
(i ^ ^ L xmffk. 


37° p ^ ^ A$lj : VIEW, WINDOW £-#$*. 


#0S : VIEW, WINDOW 


, o Q co n 
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APL -GRt'f ^X F • •=£ — K . 
• HGR K. 


TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRSri — 

PC3 

- 

IF 82 

- 

3 SCREEN Ml, M4, N 

• Ml (i /77^ ••/ ^ • -t — K *C, 0 

T' / —? 1 

• M4(±^®®<7>*&5k. 

• N (4 0 TI > * — P X • * — K, 

K7>I>;-kX • K. 

C180 

— 

M243 

- 

MZB SCREEN Ml, M2, M4 

• Ml (i 1 ~ 2 T\ lii^x — •"& — 
K, 2(iei^-K. 

• M2 ti /77>( y ? • "6— K T', 1 

-C / — ^;u, 2 

• M4liii5^m<7)^^$rlt^t-i,. 

BUB 

- 

FM 8 

- 


PSP SCREEN M 
• M l± 0 ~ 2 t', 0 lifHh^e 


— K, m/77-fy^- -t — K, 
2 (±7 7 4 > * /7 *7 4 y ? • -t 

- K. 


PC88 


N52 

- 


PC6 SCREEN Ml, M3, M4 

• pnj ifii xl •■/ 1- c7) (i £: v \ 

• Ml (± 1 7)- ^ 4 -eMW^E — K 
"t" -2 > . 

• M3 liH‘b4 T'lf^Jjz 4* &-<—>' 

• M4 ti 1 7&» ^ 4 >' 

£*&5ei"£. 


MLT — 


HC SCREEN M, Ml 
•MliOil T, 0 ti LCD iz ^>j<, 
1 li^Tl X7°U I (Z^tt<. 

• Ml ti 0^'b2t, 0 ti LCD 
1 ti 4 X -X > I 2 li 

'4^t' 4 X7u>(^»- 
KUt!r*Et&. 


FP1 1 SCREEN Ml, M4, M3, 
M5 

• Ml ti 0 ti't, 2 , M4li 0 *» £> 7 , 
M3 Ii0*>b7 T'ta/E't' & . 

• M4, M3 ti Ml *<2 (*77 — • "6 

— K RGB • £* 

ritfbn) <7)i 

• M5 ti * 7 I b • * 7” > 3 > T 0 
1. 1 (z-f £> £ SItl .r.[ijffix> 


SMC • it ^ i.- L . iz.fl L, 
C.MODE Ml, M 6 T 03 ifn •=& — K £ , 
GPLANE Al, A 2 t'^-y&7) 
j^K I: f? 7 . 

•Ml(±0*»^3T% «>*:*:£ Wi£' 

• M 6 ti Ml 2 X>K#X>^tj;*7 7 — X) 
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^7 7-f -y KfgJt SCREEN,-k 


^5eT'0* *‘1, 


MZ35 -a£^$:L. tzt*L, 
ODISP M3 

£, SDISP M4 T'^X&iMX* 

• M3 (i 1 «o 3 , hk'*'[±Z.<F> 3^C 

• M4 (i 0 »o 3 , :£ 

hh. 


XI Hu SCREEN Ml, M2, M3 

• Ml tti5^-x, M2 T'A tl 

v, M3 t/7 7-( 7? •€ 
- K* *&£-*-*. 

•GRAPH JiTF*>J: -5 fcBfl 

jiHi" i> av'Ttfrh h . 

OPTION SCREEN 2 

• /77>( -y 7 ffl ^ T *J £ HW8E1S 

Cfflt'S. 1 £ /77 >f «y ? 

• X -t 'J . 

PRW &B00000001 

• t'-y b (C*tJ£1-£&<7)T*X h t 
/77^ y 

h'-y F^tWLtfe^JfiL, 

l<7)i:^/77<| y ? $ n 

&. 

LAYER 2, 1,3, 4 

•f^7|>i:/77-f y ? 1 , 

2 , 


MB1 6 SCREEN Ml, M2, M3, 
M4, M5, M6, M7 
•Ml (iiljjSiT: — K, 0 - 4 <O|{£0, 
M2 {i 0 &tz\tiE<F>m.$: io&j*;, 
M3 ^ 

— i? % M4 It T'l XTP'f • -f^r 
x h • it, M5(iT > 9 — u — 
X£‘, / > ^ >^ — u — x • t — 
Kt5:^T' 0 - 3 «0*M. M6 t±7 

? -f 4 T • /77> f y ? • ;>', 

M7 (if' >( XTU>f • /77-f y 
? . -<L— i/ . 


IBM55 SCREEN M 
• Mli0^^2t‘, 0 K 

1 £ tz It 2 ** 7*7 7 4 v 9 • *— 

K. 


PC100 • Ml It 0 £ 1 cOAIMbT, 

M2 yffiliO, M 

3 [t*^y? 9 • ^e— K • y 
■f\ M4 It >f y-f-. 


MSX SCREEN Ml, M2, M3, 
M4, M5 

• Ml Itmm*— KT, 0 — 3, M2(i 
XX^T P • -*M XT' 0-3, M3 
f±*— • 9 ') y 9 • X T >yfT0 
£‘l (lt'ttUl), M4 liitf—U 

-K'li‘2 (1 TT200rK — , 2 
T'2400?K — ), M5 li/'J > 9 <n 9 
TX (0J^T\ MSX 
? 9 -*fe y h £ i> fcSr^X 0 > ^ 


X7U-> 


VIEW, WINDOW 


Mj£ : CD VIEW ( 100, 30 ) - ( 200, 75 ) , 3 , 7 

' ' I 'l 

t 

® WINDOW ( -300, -50 ) - ( 100, 70 ) 


&±m&comm £tt 

(DtS< t £co*7 — )v 

: U • X 7 'J — >&W't V'V\ iiiffi^>K-y 

xwjs<nw&* i i& m x&'fct h . 
m&zmt'z. fe«o*&5g i±. 


0 

1 

2 

3 

4 

5 

6 

7 

M 

ff 


* 

m 

7 Kfe 

tt 

a 


(3)VIEW & F§U(±, i‘otv'5. 

cTjpftl'fc £ Itt ae* 4~ 6 . 

(2) **>pfiis£/><, VIEW XfefcLtemM±<nv$tillzmMt%:r>X& 
t LZ>. 

(3) WIND0W VIEW T4^£n7cpKJ&£ 1^ bO£ 

ffiMcOv &*&&, *7 — tv KMR#l*3i- t -t&irh, 

*7 — )V = X 7 ') — > 1MW, tXiLXX v^SSic &• o T v ' 6 . 

(4) m*/7 7^ >y?m VIEW £ WINDOW Ciotnlt 

(D *7'J— 7 — ;u MAPliymu J:&. 

u ->&*£ /77 < •/ ^tB!iiftiuiiv»'C, /7 7^ 

C 0 -C, &*.ftU-.co ft* fi jfhj tfli CO 1 K V He *t i&ir i> . 
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£zl — , o-r^K 

7 °P ^'-7 A-^lJ : Big® 3 fflHfrro SB« lc R STS < . 


10 

SCREEN 0 

,0 



20 

CLS 3 




38 

WIND0W<- 

150 ,- 

150) 

-< 150 , 150) 

40 

G03UB *A 




50 

VIEW (20 , 

10) -< 

200 , 

100) , ,2 

60 

GOSUB *A 




70 

VIEW( 120 

,50) - 

<500 

, 180) , ,4 

80 

GOSUB *A 




90 

VIEW (400 

, 100) 

— i' ,£, 0 

0 , 180) , ,6 


100 G0SUB *A 
1 10 END 

120 SA : Cl ROLE < 0,0) , 90 , 6 
130 RETURN 


m ft m 



#HB : CIRCLE, PAINT 
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VIEW, WINDOW 


APL — 


TRS, — 

CPM — 

M223 — 

MZK — 

CBM — 

PC8 — 

TRS„ — 

PC3 — 

IF82 — 

U"<;u 3 — 

C 180 — 

M243 — 

MZB — 

BUB — 

FM8 — 

PSP — 

PC88 • #:£#««. 

N52 — 

PC6 — 

MLT — 


HC LOCATES 0, 0 

• m i nfefeitfcspmu, m 2 cnm 
fctzmmmm. 


— >^±T'7 K¥j^^;, itjt^a<o 
J: ?tc, 

i~ & . 


fpii ■ mt<7)(2 

fwJ L. fcrtfL, 

INIT (320, 100), 1, 1, R 

• tmmmtz Hi- £ as: 

fc-th. 

• x wfr, y 

^7* • 3 <50 Jrb ^ 1 : ictl>. 

SCALE (-1, 1) - (1, -1) 

• VIEW *T*&5h£ *1^^7 7 4 V 

• fcrfcU VIEW^^tTStlT*,, 
SCALE {ig*6fl«iUiiafkL4rt'. 


SMC GLOCATE (10, 10), 2, 
-2 

• u c7 > jk.* £ gx^ f & . 

• — 16384#' ^ 16383 £ 

•^2o-)lt(±m m 3<o3l*fcfi 


MZ35 -g^&L. tztzL, JE.£ 
sofeSL. «fc t/qg E* <?>;*: £ ? (xt 
— M £: Sx/Ei" £> #:<V)6D SCALE 
nrj , '^T*# f & -5) . 


XI Hu WINDOW (0, 0 ) — (100, 
50), (-1000, -1000)-(1000, 

0 ) 

w*, trTm&, 

± m&, &Tm& t $.* h . 

• mmmmz'i m-tz t, mmm 
& 


MB1 6 — 


IBM55 — 


t ±zl—, OOK 


PC100 • VIEW tdULTfil^l;. 

• WINDOW f± WINDOW [SCREEN] 

«( 

(XI, Y1 ) — ( X2, Y2)<7) J: 1 Uffl 
't'ht L, SCREEN 3 >. 

• t7"y g ><7) SCREEN (i, f*«t 
& t _L#* bT(-(i'J?)‘-oT y /<£{*(#'' 
mn1r& J: 9 


MSX — 


PMAP 


Msk :s=pmap(w, i) 

: ^Wt^aL 4 7 -;vFiI, &&V'fix 7 »J— 

x? •! i> v'fi 7 

— ;u K&Si-gg&t’*. 

4#® I 1 

0 :W£»7— ^Kli (XMK) Ht, x X 'J — >/£fg(z 

1 :W£r7 — /u (Ya&Bt) iLt, x^J->Iii; 

2 : w£x ? u — >mu (xmm) t lx, v—ji* vmmiz 

3 : w£x 9 ') — >mn (y mm) tir, v—^ki ini; 


^□^7 A0IJ : -7— JbK&JSS (X.Y) (SX.SY) 

^ (7) ^ ^ ^ (7) it ^ tr o . 

100 WINDOW <“100 . 100) -< 100 . 100) 

110 DEFINT S-Z 

120 X— 1 0 : Y= 1 0 : PR I NT " SX= " : PMAP < X . 0 ) . " SY= " : PMAP < Y . 1 ) 
1 30 X=5 : Y=5 : PR I NT " WX= " : PMAP < X . 2) . " WY= " ; PMAP < Y . 3> 

m ft m 

SX= 395 SY= 230 

WX=-93. 609 18 WY= 98.042 


mm : 
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ti°— • ?'}/ y 


APL 

— 

TRS i 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRS u 

- 

PC3 

- 

IF 82 

- 

U* ^7U3 

- 

C180 

- 

M243 — 

MZB 

- 

BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

- 

N52 

- 

PC 6 

- 

MLT 

- 

HC 

- 

FP1 1 

- 


SMC 


MZ35 


XIHu 


MB1 6 


IBM55 


PC100 


MSX 
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COLOR 

: COLOR 4, 0, 0 


4$®: i ±, K£*&se*rs. 


^-7- ; *- Ktit % 1 <7>3l&»:l;rf<7> J: n (c fe £#?Se1- & 


0 

1 

2 

3 

4 

5 

6 

7 

M 

w 

0 



7k fe 

fi 

6 


2 m2<7>SI2&(2, i®i®£ 9 ') T L ^ 7 9 9 • 7 — K £l& 

/Ei" & . ii# (i, -#- 7L • * * 7 9 9 • 7 — R 0 £ $&5e ( fi>H, ^ 

^14-^). 

3 %3<m\%ili, 7 ;*t-K(:, 0 eo £ # (i 

^7^ • -h- K(Ci*&. 

5 — K / iJ7 ■€— Kti, CONSOLE Kt'^t 

-£> . 


y □ 9 - 7 .u $ ij : *1^— • =t— kt color o~7 &^(D&xmm\zn\ 

10 CONSOLE 0,25,0,1 
20 FOR 1=0 TO 7 
30 COLOR I 

40 PR I NT "COLOR ";I fr 0fl 

50 NEXT I 

60 END COLOR 0 

COLOR 1 
COLOR 2 
COLOR 3 
COLOR 4 
COLOR 5 
COLOR 6 
COLOR 7 


#fiB : CONSOLE 


> 70 

> 7* 

> 771 

> 67TT 

> = h~ ') 

> =s7T 40 

> T 

> i/O 


^37 — 


APL HCOLOR = 5 £fc(± f 

COLOR=5 

• Keo£ ^iz^\ 

5miO~7£X-8ffi.<7>&m7n£ft 
1 . 


Y<r>t 

5IIS:{iO~255i X't 0 , 16^-t- 
KT'16M-^<7)fe^€:ff 7 . 


TRSi — 

CPM — 

M223 — 

MZK — 

CBM — 

PC8 • 7k £#!!«. 

TRSii — 

PC3 — 

IF82 COLOR 7, 2, 0, 2 

• SB 1 aoSI&T'^fe, m2<7)5ll& 

Biic7)io < m4<7) 

5I3&-Cfe=7- KSr^-r-2) £, @i 
Sniicofe^ — K £ <7) AND 
fc 

u^<;u 3 COLOR 7, 1 

• micosi&T'^-fe, m2c7)^i^ 

• col. 

C180 — 

M243 — 


MZB — 


BUB • u>-<7L 3 t [H] u . tit* L, 


FM8 

* V ^7L3 t. foj L . 

PSP 

• bub tmt. 


PC88 COLOR (s (0, 10) — (50, 
60), 3 


*<031 

& £ 7 izmfcziiz. 
mm* **799 • -t— KTi& -) . 
LlUcmjj'iiL T, COLOR = (Ml, 
M2) tc j: l ) 7 7 7^ v ^|ihj|fii<7 )^ n 
u ••/ h (r>W$Ui^. 


N52 COLOR 7MJ ta- h • 
3 — K 

• 7 MJ ta-F • 7-KT'^7- 
T > 9'—/ Jr —'< — "7 ^ >, ij 


PC6 COLOR 4, 1, 1 

• m i crs2^‘ji^c 

-c»*fe, m3 <7)‘j|^cT-7!7 7- • 
-t *v h & ilx/L't" i> . 


MLT 

• v ^ ;u 3 ^ r»J L . /c L , 



HC 

• PC6 t [BJ b . 


FP11 COLOR 4, 7, 3, 6 

•#S£li, «' : £, IHtfe. r?*7 
4 V'TH 

t0A‘b7^t. 


SMC CCOLOR Ml, M2, N1 
• **799 m^cr> & $• J&sg-f & . 
•Ml, M2 ti— 32768 *‘*^32767 i T 
N1 (i 0 t&‘ «o255 £ T'<7) 
•MRS £ t h . 

•Ml \t* *=} 9 9 - ii =7—* M2 (2 


COLOR 


y< v 9 • 9' 7 7 > K • ti 7 — , N1 

^ftiUmi^CCOLOR 
f-tn >e L A: fifti: £ . 

GCOLOR Ml, M2, M3, N2 

• /77- f y & . 

•Ml, M2, M3 (i -32768 £>* *^32767 

i ti?)Ilt, N2 li 0 ^ 4 i *C 

cr>m%\£t b. 

•Ml(i^^#7— , M2(i'<-/7- 
9*7*9 > V * t)~7—, M3 (£# — 
r— • xi J 7 • *7 7— , N2(±iim£& 
v'^t 7 — K £r ^n^i" & . 

• £«&-*-& £, «lJ2m«OGCOLOR 

* T -m^L L fit. £ (*#-*■ & . 

KCOLOR Ml, M2, N1 

• /77-( v 

■JinTE't' & . 

• Ml, M2(± — 32768#' 32767 £ T 

<?>mm T, N1 li 0 fr K> 255 £ T<7) 

mm* t*. 

• Ml li\%'^t} 7 —, M2 It'*"/ 9 * 
9*7 T J> K • t)7—, N1I±#S14$: 
tutti't" & . 

• £, *JlJaiW*>KCOLOR 
£ T'Ht^e L fc fit £ f*#-T h . 

ACLEAR 5, 5, 3, 1 

• ^77 ±.cr>, L 7b 

‘J b'i — h 

• m 1 (n^\mt'Uyi\n\ih'i-r, %,2<r> 

• m 3 <7>$NBc(± **-799 • t>7—, 

m 4<n$\&l±'<'y 9 • r?7> K- 

^/7-, m5 <7> SI &(*&■£ 3- K 

• £ tl£ x&tz li MW 

• m 1 <50 9 I £ '£»&-** h t Wc±/ft # f 
mfcZt L, m2 tf^l***"^* 
£ ST fr i Trftf&5E $ ti b . 

• m3, 4, 5 <7)SI3&£iiiW&1-& £, 

£ iiTb £ £ t ti & . 


. ^I^s&s J: »), * 

— K ^OnX/E-fe cfc / y 7 
O / # 7 — • "6— K<7>jMiR£Tr') . 

• E?®ONB#lc(i, 80X25^e/?o* 

COLOR 

• X^ (»/7 7^77-x>-f 
GCOLOR 5, 3 

• /77-( ’? ?uSj!ii(2 jstt &, 7*7 

74 7 ? • — > tWigco&t: 

BL 0, 2, 80 

•CRTf^wt^?:7''j>7 (.& 

$£) ttSl:tl>. 

RV 0, 2, 80 

• CRT U * (R 

te) ^mu-rs. 

REBL 0, 2, 80 

• DISP CLEAR XT 9 <) 7tl & 

1>7*'J>?, •) 9 ') 

7T&. 


XI Hu COLOR 7, 0 

•mi <7)9115 cli^f'fe, »2<JO*}|«[ 

W t. 

CANVAS 1, 2, 3 

• -v)U-f-[liffii<7)-g-^'7 7 4 -y 9\1 lijffl' 

PALET 4, 0 

• /'"I/ y h c7)fe£ifctf><2, . 


MB16 COLOR Ml, M2, M3, M4 
• Ml UX^T-Q, M2 M3 (i 

Ifi^fcT 0 -15<7)IBffl. 


IBM55 COLOR Ml, M2, M3 

• VltmZZftifc-t-h 0 -255 < 7 ).® 

• /n”U y h PALETTE 

T-fr -5 . 

• t ») , *^<7)T 


MZ35 CHANGE DISP S 


PC 100 • l5j£<7)^^£fA'';£:Hfcf±:fc: 
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tJZ 7 — 


^ < iE ■) . 

COLOR Ml, M2<7)ff£-Cf$ffl£*l, 
Ml (±7 + T • /77> K • ti-7 — 
T, **7 9 9, &, ®LliZ<r>i £ L 
TmZtl, M2li'< y 9 • /77> 
K • tj 7 — T, difficoTUk^^.^: 
*-*. 

PClOOTIi, ••/ h 
^'T^'^tzish, ii'ftftfO COLORS 
t<7)^: L-C 

PALETTE ^ PALETTE 
USING -h'fah . 


MSX COLOR Ml, M2, M3 

•Ml \i7 * 7 • ?'7 7 > K • t! 7 
-T, X^, &m5E*l9)77-7 

J{ y 

• M2 M3 i - 

^C-C 0 ~15i -C. 
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i&g|g LINE (-g<7> 1) 

JfcaS : LINE 6, 2 


H!fi£ : i ft^\tLx~<x>mMxi— &. 

• 1 ft ft • *t — K -t — K *C(±jl -7 — C: &* £ . 

2 o8— <7>SI3&fi, 0 fr& ff%c— l £ X-cDlfeZ t ») , igniftj^f JuSe 
$r't'<2>. 

3 i£ 2 oSI$c(i, 7 r > ? ^ a > • o— KtO ~ 3 $. X'<ft>tti% £ 

*), o : /— -^;u, i :*ru> 7, 2 : ■;✓<— x, 3 : <j'<— 


a ^ *7 a#ij : i'itb&ij a— • "e— k ic u t m -5. 

10 CONSOLE 0,25,0,1 
20 PRINT CHR*<12> 

30 LOCATEO , 0 : PR I NT " *** TEST PROGRAM ***" 
40 LINE 0,2 
50 END 


m ft m 


#fi§ : CONSOLE, COLOR 




APL 

— 

TRS i 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

• 4: -£#!!«. 

TRSn 

— 

PC3 

- 

IF 82 

- 

U' ^ JU.3 

- 

Cl 80 

- 

M243 

— 

MZB 

— 

BUB 

- 

FM 8 

— 

PSP 

— 

PC 88 

- 

N52 

- 

PC 6 

- 

MLT — 

HC 

- 

FP11 

■ iZm&L. tzt* L, REV. 


NORM np^T', mm 

KX'^h. 


SMC — 


MZ35 — 


xi Hu • mm* l. fzr* t, i ic 

CREV, CFLASH 
i:L tSfe .&i$f & ’ t a*T 
£ *. 


MB16 - 


IBM55 -s£^£:L. ^ £f L , 
COLOR J: 0 , ^C7)S'1£ 

h. 


PC100 


MSX — 


aasig LINE (*<£>2) 

Bit : LINE (5, 5 ) - ( £0, 10 ) , “ A ” , 4, -B 

^ ? 9 < . 

: 1 ttftu B (*>*VM± BF) 

#jy><0H6® (XI, Yl) 3&»k<fc*>gg& ( X2, Y2 ) 

XI, X2 (±, o^^fr^c- 1 tX% Yl, Y2 

(i, o i £'e<of?:£ t a. 

2 SfS 2 0O*&5eT% 'jlfflil ( ” ) lt'4 1 

c r>^**=7 7 7 t^h. 

3 m 3 0 - 7 £ ) U «fc >) , &, tt Mb £ £ - t 

*<T'£ ^nti COLOR -*c^)7 T > 7 > 3 > • => — K 2 b. 

4 Jft&d, B£fW&2, (XI, Yl), (X2, Y2) 

DR f & DM B* * * 7 7 9 £ ]*ii o X Jui < . BF cot £ It, % 
<n [iy#j Jf2<50i*]3l$ £• 1"-<T Ifr^e ^77^ tlrt . 


7°P $7 A$l] : &«l (2. 10) dr (17, 7) CO^CDiiC^^t^^ct^-'SK 


10 PRINT " START POSI T I 0N< x , >') = < 2 , 1 0 > " 
20 PRINT " END P0SITI 0N< x , >') = < 1 7 , 7) " 
30 INPUT "CHARACTER" ;A* 

40 LINE<2, 10>-< 17,7) ,A*,B 
50 END 


'a- m 


START POSITIONS* >=< 2,10 > 
END POSITION-: x,y>=U7, 7 > 
CHARACTER? M 


MMMMMMMMMMMMMNMM 

M [;J 

MMMMMMMMMMMMMMMM 

#HB : LINE ( Z g> 3 ) 
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APL 

— 

TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC8 


TRSu 

- 

PC3 

- 

IF82 

- 

U"<;U 3 • K Jet IhJ t. tztS L , X, 
Y MUKfiL 0 -39 (79), 

0 ~24iX'T*>&. 

C 180 

- 

M243 

- 

MZB 

- 

BUB 

— 

FM8 LINE 6(5, 5) — (20, 10), 

“A”, 4, B 
• t isjt. 

PSP 

•4^ Jet InJ t . 

PC88 

— 

N52 

- 

PC6 LINE (XL Yl) - (X2, 

Y2) (&), (B( F )) 

•**77 7X'Wt&''\ 


MLT — 


HC 

— 

FP1 1 

- 

SMC 

- 

MZ35 • f& ^ 4* L . 

• $k\¥\&<7>tzth<nfa {■ 
TABLE 

X 1 Hu • t Is] t. tz ti L , $ 

3 

MB1 6 

- 

IBM55 

- 

PC100 

- 

MSX 

- 
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LINE (*<7)3) 


Tfcit : LINE (0, 0 ) - ( 50, 50 ) , PSET , 4 , B 

£ fclt PRESET ®«SnT 

mm : K'y h , mLtz')-r&. 

%%WL : 1 (XI, Yl) ( X2, Y2) £ T, ^2<7) 

PSET <7) £ PRESET CO £ £(i*$i£mi- 

Tk^mmxi, x2(io~(ffm*2-n, mm.m.n<r> yi, Y2 it 
0~(lTt*4-l)jm§. 

2 ^3coJ^(i, COLOR t^7r>^y3> • ^ — K £ [3J b T. 

fe, 

3 l?S4 <7>J£5E(i, B<7)£ BF <7) £ # K y h T'E9 


7°n7-7ixtf\\ : line 

10 FOR 1=10 TO 2 STEP -2 
20 IX=I *2 : I Y=I *2 

30 LINE ( I X , I Y ) - < 26- I X , 30 - I Y ) , PSET , , B 
40 NEXT 

50 LOCATE 0,7: END 


m ?t m 



#fl§ : LINE (£CD2), PSET, PRESET, COLOR 




APL — 


TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 


TRSu — 

PC3 

- 

IF 82 

• m3<7>d 

£, 

PRESET cO £ £ 


, ii#iiff«:fe£|3lLLi-a. 

£ fztVtbxnmftilt&nhXZ, %<n 

£ £ 

( 0 , 0 ) f- itSrxL £ n h . 

• IF 82 £1 3JL. X, YJMH 

It, 

L^'n 0 -639, 0 -199, 


- Kti 0 -15 £ T'ta^ZT' £ 

&. 


C180 

• L. tz tz L , 

&>Tv 

i* -£> £ £ M f IJ £: S ET FOR M 

ACCEPT, DISPLAYS 

JfH' 

6 £ E- 1 *] '# <7) A , l H Lj £ ' T' £ &. 

M243 

- 

MZB 

LINE 50, 210, 50, 150 
BLINE 50, 210, 50, 150 

• LINE £ K y h 

T' 0 £*#', BLINE T'I3]^(ZIi;^ 

£Wi\ 

• f$3& 

# @ £ TKi - . 


BUB LINE@ (0, 0) — (50, 50), 


1, B 

• @ltg®&* I, 

• $1 £, 

co line m 2<x>mmz 

tytblt, (0, 0 )Ug& 
• §g 2 cO^^T'COfe ^ — K(± 0 - 7 
£1311;. 


FM8 LINE (0, 0) — (50, 50), 
AND, 2, B 

•m 2c7)*i^T% PSETTi&£fSi£, 
PRESET T'#l£ mi". AND, 
OR, XORcO££, m 3 CO^CO 
HTtfncofe £ co,ir3P.?1{|j: 
£'Tt;£&. Itfrlt £ [3J L . 

• ^^K-UMjiLT, 

%'X'zlz |0; T'^m - i ,'CONN ECT ft* 
2b £> . 


PSP — 


PC88 LINE (0, 0) — (50, 50), 
7,, &H9F9F 

• 7K¥, ^it/l^£i -32768- 
32768 £ XrX'2h h . 

• STEP £<tll& £, 

• mi nmmzgnbi-z t, mc 

fifcZ tifzmWztSifcZ ti& . 

•m4cO^T', B £. tzlt BF £Hir 
5eT'#& ($Sij£[i*:££[3Jb). 
£/z, 


N52 

- 

PC6 

- 


MLT LINE [STEP] (0, 0) - 
CSTEP] (50, 50), 1, BF 


•m 3 co^ngrc-^icofe^^L, ^ 

4c7)^|^rc, B t-tzlt BF 


LINE (*<£>3) 


-e# s. 

CSTEP^^i*^ d:ftiWS£ 
l fc - * u $? * . 

gttw STEP *&5eti, SlfflU** 
TLfca^w, **7 .&&&***>*> 
taws. 

#, d: <7) STEP -m^(i, 

<7)taws. 


=ft®3 li&t'. 


FP11 DRAW = (&HFOFO) (0, 

0) - (50, 50) 

• m%m 7 >r > • ^ >r 7 °, &«*>«;. 

7 >f > • ? >f -Tii nT. 
j-—- 

• t 

$n, (-) £f£7 i, ^<t>rji£i6: 

• 7 4 > • * 4 -7°<7)J&'aeU «fc •) , t' 

V h . 

• DRAW ') d: t fj&&X'&7js 

"t" & . 

PLOT (0, 0) - (50, 50), 6 , 
AND 

• plot ^-etisjb z.twz'Zh. 
tz tf L , Zhktzli, fefcisifigeo 
*&5e**ft < . 

QUAD (0, 0) - (50, 50), 6 , 
AND 

• quad -xzwi tmmm'imz. 


SMC LINE (XI, Yl) - ( X2, 
Y2), 5, 4 

• m2 <7)tii5eli*7 7- • =i— K, m 
3 <0*§5Eliiir3$ift3r 7 — K 

"I - h . 

• d:, U ffi<r )7 
77 ^ •/ 9 • =?-7> K4 , "C$:?£l- 
*&JeLfcffi«(, ttzli DRAW * 

d: $ti ( 0 , 0 ) . 

• ^2 ttzltm3 


GCOLOR *-Ctt 5 e L *ifit 
|: 4 -i), GCOLOR 4 * ^NMi, 

t^^7-li7, j$m«U*t£0lw 

BOXE (XI, Yl) - ( X 2 , Y 2 ), 5 , 

4 

• t&^{± LINE-*d:^Il:. 

BOXF (XI, Yl) - ( X 2 , Y 2 ), 5 , 

4 

1~. 

• ffi&li LINE :£ d: r«J L . 

• DRAW 

X^6. 


MZ35 LINE 5, 5 : 20, 10, “A", 
3, N 

•mi, 2<50*?I3& li®L<7)t&tf><niMffl 

L, m 3 , 4 < 7 ) 3 IS&t±®i< 7 ) 

**;b ») 

• m 3 < 7 )ltt>E Tift £ tn /ii L , 

m 5 

• m 5 <7>*t5E *C, N (i#L* d: #L& £ 

*&£>', F d: **• * fcv'. 

• LINERESET 5, 5 : 20, 10 “CWL 
$)!. £ fW-ti: £> . 


XI Hu LINE( 0 , 0 ) — (50, 50), 

PSET, C, B, &HFFFF 

• m i <r>mffi£fii a &T& t, mk\z 

3<7)t&5tli PSET, PRESET , 
XOR ^&J4 <7)t&5E'C'^°L y 
b . 3 - K(^»&nT), m 5<nmfc 
T'BJ tzli BF ( #«&«!), «6W 
— >(®"fr“T). BF 


MB16 LINE ( 0, 0 ) — (50, 50), 

4, B 

•PSET, PRESET (i£*v\ 

• J^OButc STEP d:, tB 
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zp^y 


tzlMM. 

^ 7 — • 3 — K ti 0 ~ 7 . 

DRAW YW fE j: ») X? 

0 — > _L(c h . 


IBM55 • MB16 d: IsJ fetu 

5e(± 0 j&‘ 1 T-&&. 


PCI 00 • PC 88 d: f«l L . 

• [SM^cOlMs't' DRAW frhh. Z. 
Mi LINE 3c<7)m 1 ^l^c^r^w&L 
md:ilU:jlM^. 


MSX -MB16d:|H]b. fc*5L, 
^ 77 — • 3— K(i 0 ~15. 
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JlROftm CIRCLE 


JKifc : CIRCLE ( 80, 80 ) , 40, 2, 0, 6.28, 0.8 




«|M 


L_ 


'N6 


T BH4ft 
1 /0J£ 
u / h 
#9 


I'f- r tsfe/:<7>jt 
/o ire 


flttt : 
W& : 


£, fi, it so ffr 1 1 J so ,‘{|: - 

< . 

1 7-;i/ STEP do, 

12)<7) J: '} i:^Lt it 

2 y I- WR*>fe£4&5gi-*. '*U ••/ h &co*.J 

lt(i, COLOR *r-fltSglteJC-C&*. £, 

-h<otf/Rso& *> & . ' s U v h ftmft-L § > , 

COLOR T'tif$E L £2 7 t 7 • ^ > K • # v — (C & & . 

3 DfJ tttiPl J& t T Pi /£ £ ;'f|S ^HJJv £ ini 

-2nfrc> 2n wWtflr'itS. l£(i*fc 

£ t?ii& % <n t & , 'ImI'*' ^ r.vj ^ a z> . 

o £ 2n. 

4 fS&COjfcii ( 3E-iCC'^/ |Mj <50 tft ) / ( /]< t : i/InjtT)^.), t'>L £tl&. X 
<x>£ £ mt, ill: ui: t /K f- o -e n Z'tico '&<r> 7 ib , u- ^ ;yc7) f& 

-t. it £ 1 t -f & t Rtc t£ h . 

5 Pi ft- p j ■*» ij:j BZiiiifr-fr&mz) i j v ^ . 

"7 -;u K&*I -x— f*'tt -i:i: co-c* a AiA-coW. «!#•£■*> ') . til • M i (, 

- 3 2 7 68 7^ 3 2 7 67 i T'ifrS 'J , fi ?> pliJiW tS t. &-0iT £ C »-*<•?% 

■S. 

-”*§**&** && £> l .ft l- J.4..V > L fcitf. x >yi.'»i. Y ^i.'.jii 
Ml- Wtfj T & fi'lz J: -> T i>iJ^ bill) fttetts. 

n '*l*y h#-§- -'U ••/ I- £ii, bi; •} iiVi < h.VL fit* -i /*w ■ |- t 

v' -) .CiitfeT, 0 firti'i) 7 -ceo/voco^'U • - F *• L f->. --l- --' fit z. ii t,sn' ' i, 

•v H-ftfyV60f&,4r^Si£l'‘5> C fc#«T ^ 




7°p 9 -y A^iJ : 

10 SCREEN 0,0 
20 CL 3 3 

30 FOR 1=1 TO 1O0 STEP 5 
40 CIRCLEC300 , 100) ,1,6,,, 1/100 
50 NEXT I 

60 END __ 


#!M : COLOR 


*SR< 7)m7jk CIRCLE 


APL 


TRS i 


CPM 


M223 — 


MZK 


CBM — 


RC 8 — 


TRSn — 


PC3 — 


IF 82 CIRCLE(80, 80), 40, 2, 

0 . 8 , 0 , 1 

• B&li *'£ £ [nj t Xb b v, it 
%i.cr>)tl£'&ij'b 3 # 

i - . 

• itfcA<7)Jt(± K 

•x b mm.) / 

k v b mj siisfe). 0 ~ 1 comm^A.. 
t\^-t btO. 4177. C CO t £ 7k -f- 
)j |i*J C7) — $Cf b . 

• wmfa&tfcinD+ut, pj^8^ 
ftLtz 0 — 1 <r>\U<r)&.. 

• fcVg+ //[M]U$j < . 




C 180 — 


M243 — 


MZB — 


BUB • $ln£(iIF8 2 £ |hJ t X'b b 

t>\ m&ip. m, 

\\H.X'& < XX^\ 


FM8 CIRCLE (& (80, 80), 40, 


2, 0.8, 0, 1, F, PSET 

mm BUB £ fh-J t Xb b iJ\ F 
C J: O X PI \H cn m ') 0,1: L ip X £ 

PSET li jfi/UI 3 ilfc&fig-C, 
PRESET, AND, OR, XOR t 
U iz.b. 


PSP 

- 

PC 88 

• **#<!«. 

N52 

- 

PC 6 

• Tk^c t l»J L . 

MLT 

• CIRCLE CSTEP) (80, 

80), 40, 2, 0, 6.28, 0.8 X% 

• STE1 

• Zfirfc'tb £, 




HC 

- 

fpii 

CIRCLE (80, 80), 40, 

2, AND 

• ft l&. 

Uft/60lt6Dbn'4i(i i* V'. 

AND Itm^iLX, llfriz, OR, 

XOR, 

NOT, OFF/j^I». 


Ttf1\ 

SMC 

CIRCLE (80, 80), 20, 


10, 4, 3 

mi »ji&, m2 '}\%Li±'p'kmmz 

tfrte-f <§> . m 3 x # *&x% 

ers4 

m5 v- • 3-Kt, 

m 6 ‘1 1 &f* MSP II flit ft a-Kfc bfivii 
' tb . 

m3 £fc(±sru 

btnii£*i'Ct'&Mi 
;/ I-'J 60 frt £ T- ftt-fb I'i-PJ *• biVi 
< . m 5 i ^ it m 6 60'jir^ t§r»ft 
LfcH$I±, 
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Vr-0)\j 


CCOLOR XX^ife Lfca-Ki: 
4*0, CCOLOR ZUj'-b (tali', 
i]=7-\t n X\ ,sfir*IU« ft (i 4* 
L (:**. 

I) RAW * *C i IhJ ti C fc 
lzX£ b. 


MZ35 CIRCLE 80, 80, 40, 0.8 
: 0, 360, 5, N 

• m 1 1 2 tr>‘ji%cx-'p'i'&x> mm& 

mtelrb. m3 60-j|^rC'itMicoit 

£ % m/ii l , m 4 60'jigc -cfei Mi > 

m 5 650^1 

m7«SI#[-C«^feS: 
b&^e L, m8 <r>* ■>? -7 9 9 T'^/F 
Jf^£bn/Hl"&. 


XIHu CIRCLE (100, 100), 50, 
2, 1, 0, 360 

• »4 3lttiT(i*:fcfcrat-C. 

u y b #^-60*f3M¥4'A''< &. 

• ftjgii 360 

POLY (100, 100), 50, 1, 144, 

90, 810 

• m4 ^mtx-it^jsttmtx, '* 
u v b fbJ^cxf 7^,- to 
JtHft, teTPiZ^Z-b. 


MB1 6 • A^£W\t. fz fz L , 4* 

STEP lz J: •) tUWlMW; t 

-tb. 

IBM55 

• MLT t In] L . fzfz'L, '< 

U ■•/ 

b #-^U 0 1 xb b . 

PC100 

• MLT £ hd t . 

MSX 

• MLT £ |WJ L . tzt' L, 

U ••/ 

b 0 -15 4 7 — 

• ZJ 

- K. 


— 238 


iOo.S;' L PAINT 

MX : © PAINT ( 80, 80 ) , 3, 2 


mm — — 

t 

® PAINT ( 80, 80 ) , TILE$, Z, BACK$ 



9 -f n, ■ X T '< y 9 ■ 7=7 *7 > 

h >j > tr I k • * h i; > r 

mm : (DBn hi±<x>h h ») o^:t. 

(D® ffi h W& £, — > xW-.sh o < -f 

: dxi )mmu, v—n, vmm (circle cr>m^m) x^t&v, aim- 
step do, i2) <x> x i t j: i'. vi cr>mmx>&K 
£ #t/*> & %w £ tft ») o^:1\ 

(2)p/iis£Ei, #nfw±, 7 

• T • ?'7 ^ > Y • t> 7— 11 Xibh . ffiisfc&tc J: oTrfcNojc 

J>d E l TH fl ilLtt'T, ») 

dXl)-%f^fe<7)3i;Bfeii® ^ |sj L. ^ -f >v • 7. h ij > titzVH 

iciot ^ n Z> . 

(2)-< y ;-/7^ K • * h »J > r(i, 

— >x\ h £ COLOR -jCX’tfite2iLt'Z'< 

•V ^/7^y K . *7- 2) (z&&. 

'(3)J^^(i(X>^rnJb. 

(4)f&f$(i , K y |' <n*<? — > t , ~3c'f : co u — p (?) tr ••/ h yij ^ 

s-tp-mf. mi_t£, tm<nt 

• o o • • • • • — >16 'M%c.cr> 9F 

• • o o o o o • ->l6jftgc<7) ci 

• • • o • • • •-*i6i«i %tcr> EF 

TILES = CHR$ (&H9F) + CHR$ (&HC1) 
+ CHR $ (&HEF) X: h 9 -f )V • X h ij > & . iKtUfpJ 

fr^MtaT $fi 8 K ••/ h T-&&. # 7— 3 £ 

't : T- 1 ft &mi, ffi 1 cr> Jc'f-fi'W, m 2 c , $ 3 CO* 

ffllo ^ ,I 7*7^5'»K*»9- ^7 -7 i •■/ ^|iiij|fii«;..^^l^ii/j;L^ 'J T *».¥(- (Of 

K-*^- v ?i*j|ftj(-£(t £?H;t<7>fc. 


/ K-r / 7h 


^ n ^'•^A'B'iJ : I'l^jS/j'-ti-f wi'S-^i^— T*#. uow. 


10 

SCREEN 0.- 0 


20 

CLS 3 


30 

FOR 1=1 TO 

50 

40 

C=INT<6*RND 

+ 1. 9> 

50 

X=639*RND:V 

-199+RND 

60 

CIRCLE CX> V> 

, RND*80» C 

70 

PAINT <X.- V> .- 

c 

80 

NEXT I 


90 

END 


ft 

m 




#fls : COLOR 


PAINT 


APL — 


TRSi — 


CPM — 


M223 — 


MZK 


CBM — 


PC8 


TRSn — 


PC3 


IF82 • 1 <nmfc<r)Uh *) , 

• v — )V K I t± £ & 


l V 


U'-^^Ug • IF 82 t I'nJ U . 

Cl 80 

- 

M243 

- 

MZB 

- 

BUB 

• IF 82 t IKJ t . 

FM 8 

• IF 82 t l»J t . 

PSP 

- 

PC 88 


N52 

- 

PC 6 

• 7 — 

• 1 F 82 twit. 

)V K® h. 

MLT 

PAINT [STEP} (80,80), 


3, 2 

• STEP (± fi IfrtffciK <nfa<xL 

iz n . ~ <50 n$ <r> ifc ») o L I4M 4ft 
£M, Lti&&<r >&7 

STEP £ 

guftL tz&fr, «&*«&. 

• m 2 m 3 CO ffifc 


HC 

— 

FP1 1 

• IF 82 twit. 

SMC 

• IF 82 ^ IhJ b. 

MZ35 

PAINT X, Y, Z , U ; V 

• X (± Sft ») Kith b Y (± 

m ») i&sh h h . 

V lZ&<r>mr&£Wi { al1rb. 

XI Hu 



• mmttMsmmmizHLxfTfriih. 

• m&.&lt'tl' -y h -3 — Kifcii 
^ ^ ;u • s<9->X'5-£h. 


MB16 • ^ 

STEP (C J: ») ffiW 

MR. 


IBM55 • MLT £|SJb. fc*5L, & 
(iMU 0 ), 1 )^2 fe-C& 


PCI 00 *(D<7V<y? • K 

■ x HJ > 7cr>mfc* < &'''i£-t>'li 

*-*:£ wit. 


msx • 

• &&&& / 77 ^ v ? • — K T 


- 239 - 




- 240 - 


K *y h • -fe y |> PSET 

: PSET ( 20, 40, 4 ) 

mm : K y b 

: 1 s&l*)3l&f±, &&<7>7k¥ifcS£5^L, 0 ~(ffr£fc* 2 - 1 )£ 

■vm mx\ &2<n%\mtmm<7>mw.iiLWLi:niL. o~(ff &* 

4 - 1 

2 i3^M!ife,ii^t^7 7 >;y 3 >*^-K(C0L0R 

*£rat)£«5£-C£*. 

3 /77^^.^-ptffflLi-^i, JEL^iMI 5 ** Li-vc 

£ frh h . 


zfnf-yjxff ij : K'v 'v o 

10 PI=3. 141 59: LOCATE 0,0 
20 FOR IX=-PI TO PI STEP2*PI/40 
30 X=20/P I * IX+40 + . 5 

40 Y=30-SIN< IX) *1 5+ . 5 

50 PSET < X , Y > 

SO NEXT IX : END 


m n m 



#fig : PRESET, POINT 


tl°— • Izwh 


APL PLOT 20, 40 ttzit. 

HPLOT 100, 100 
• PLOT fiC&ISMfcJfc, HPLOT 
fMPt-K’TM*?. fefim# <n 


COLOR (HCOLOR)^CT'-m^^ 
ftfc *><o-C*>£. mn%<7)±£ 2 It. 
39X47T 'hh. |t] b. 


TRSi 

• ^^iT»Jb. tzt' b, ^1 

»'Ceg«*>A*&5£-C££. 

<?>:*:£ £(±, 128X48T'^> h . 

CPM 

— 

M 223 

- 

MZK 

SET 40, 20 

• Ei, 


<?>:*:£ £fi, 79 x 49T'#> ■& . 

(i^^b. 

CBM 

— 

PC 8 


TRSii 

- 

PC 3 

•MZKtfSJb. /c/bb. 

£ It. 79X31T*) £ . 


IF 82 •*■*:£ mt. tzt' L, 3 
%cX'b'-v 

K "/ h 

• $(i639xi99 (fro). 


• IF 82 tfflt. 


C180 


M 243 — 


mzb • mzk t r..j l. mucr>± 

£2 l±. 319 X 199 T h&. 


BUB PSET (50, 100), 7 
• tiki&it IF 82 tlsjb. 


FM 8 PSET (50, 100, 4, OR) 
• Mfi IF 82 tW\t. tzt'L. 4® 
S^I&T'AND, OR, XOR <n 

(^w^b^i) m&nm 

rffi fe b £ Itv \ 

%z(r>&%mi7K’th. 


psp • 4^ i:t IhJ b . 

&mz.fz iHrp (i , *f ttzit &T ff 

n3t/E"T <S> . 


PC 88 PSET STEP ( 20 , 40 ), 

5 

• X, b- 32768 - 32768 ST' 

flf 5 g-C£S. STEP £ 

ftit & t b « i. h . 

tnXE £ tl ( Last referenced 

Point) (fUfrJ-^ii 

CC 7 > LP cnLt^tS). 


N 52 

- 

PC 6 

•-*■*:£ fflt. 


MLT • PC88 £ luj L . fcfcfL, 
0^X^399, 0^Y^639. £ tz. 
PRESET tmt. t't<tj=7-^ 
£»& L tz*%& IZ && o tz fa'fr £ % 
h. 

•PSET, PRESETt*^7-^f 
-i> b , mi* It ~7 t T • 77 ^ 
> Kfe, ?£#fi '<••/? • 7?7> 
KElT" K y h £.&*ri“S. 


HC • *-££li*Jl;. 


FP 11 PLOT (20, 40), 4, AND 

• El, 

• D R A W 3C, D R A W C £ £ fOf o T 
turner* Z £ t><X£ h. 


SMC GPLOT (20, 40), 4, 3 


K "j b • -b >y h PSET 


• LINE^IBJb. 


MZ35 PSET 20, 40, 4 
SET 20, 40 

• 7~7 ~7 4 y T 

* x b m rfii £ mmi - -s, ^ 


XIHu PSET (40, 40, C) 

• mmmmiznixftiotiz. 

• ‘il^cfiX, YM&, ^p ••/ h • 3 
- K *C*> & . 


MB1 6 PSET (20, 20), 4 

• 4 (i K y h 0—7 

• /^f^nylcSTEP^ott & ~ t (C 
J: 0 


IBM55 • MB16 fcl^ll;. 

tztz 

L, 

0 i fcli 1 <7)<^ 

xh 

h. 

PCI 00 -PC88ilHjb. 

MSX PSET (X, Y), 

M 


• Mfi 0 ~15£ X<X>tf 7 • 

ZJ — 

K. 

• STEP £ ftsfeir & 

tm 

jt'iii. 




-241 - 


kT— • t'VS 


- 242 - 


K "S V • 'Jt7h PRESET 

: PRESET ( 20, 40 ) 

K -v h 

: 1 7t>?'> 3 > • PSET<?>&&£ffl 

b. 


~ 7 °U ? =7 — put 

@r^ux, pre- 

set rmyjk K 'V 

100 DIM AX<10> 

110 CONSOLE 0 ,25,0 , 1 : COLOR 7,0,1 

120 FOR 1=0 TO 5: READ AX<I):NEXT I 

130 PUToK 0 , 0 ) - ( 7 , 15) ,AX , PSET : LOCATE 0,10 

140 FOR 1=0 TO 7 

150 FOR J=0 TO 15 

160 IF POINT < I , J)=0 THEN PSET <I,J> ELSE PRESET* I , J) 
1 70 NEXT J , I 
180 END 

190 DATA 128,8704, 10786,7230 ,5148,5140 

m ft m 

w 


9 

#fiB ; PSET, POINT 


LT— • UlZ'Xh 


APL — 


TRSi 

• **£1*! b. 


CPM 

- 


M223 

— 


MZK 

RESET 160, 

100 

• X, Ym&lt, ZtlZ'tl 0-79, 0 

~-49£X'ffifcX'£ h. 


CBM 

- 


PC8 



TRSn 

- 


PC3 

• MZK tmt 

. X, Y OHfj 

l±. 

*tl?t 10-79, 

0 -31 £X 




IF82 PRESET (30, 40, 7 ) 

• mi <n?\&<7)7k¥mvzt, m 2 co 

fiiScT) K 7 h £, m 3 co$\m~£ 
^£ichS:Se1-&. 


i: fn] C . 


C180 — 


M243 — 


MZB • MZK^IWJb. X, Y IMM 
ti, ^-^^'^10-319, 0—199 £ T' 
6. 


BUB • mfe&Mco K y h lift 


FM8 • BUB <bf5] b. 


psp -^^b^lnjb. 

TbfiSIT'tT 


PC88 PRESET STEP (20,40), 
5 

• X, -32768-32767 

£X$&'SlX-£ 6. 


STEP £,*0 

[W]b. 


N52 

- 

PC6 

• *:fc£lHjb. 

MLT • mMti: b. fcAfL, 

PRESET (20, 40) Xmt^tV 
T'£ £. 

HC 

• ** fc 1*1 b . 

FP1 1 

- 

SMC 

- 


MZ35 PRESET 20, 40 

• ^(i^^Inlb. 
RESET 20, 40 

• SET T't&V'fc 


XI Hu PRESET (40, 40, C) 
■ «J|&{± PSET 


MB16 PRESET (20, 20), 4 


IBM55 • MB16 tffl bt^l)^, 
fe^liO 1 X, 

t 0 (M) xhh. 

• ai^BlJUSTEP^oti&c: 

J: ») mt&M. 


PCI 00 -PC88trHTb. 


K 7h • 'J -tr y h PRESET 


- 243 - 

tl°- • Utzwh 


MSX • Steffi <7) K 7 h £ 

COLOR KX'mfcz tirzimftLiz 
"t - & . 

*^7-o- K£*&5ei-& i, 
PSET |nj b 1®J ^ £-f &. 


- 244 - 


K % y hNqiJt POINT 


: POINT ( 20, 40 ) 

WM : mm± v h*)#***^*. 

*HMS : i Mi(cK7h ••byf (jfcot^^) wiim-i), 'J 

-fe-y b 7) £ £ fft ( 0 ) £W6 m%lX h & . 

2 mi£7)‘jlSc(i, 0~(fiTl&* 2-1 )£ 

X'<n*mx% m2(n^ma, o~(n 

& * 4 - 1 ) £ T'^ISgfcT*) & . 

3 /77^ y ?!&&.<?> t 


37° □ ^7ASI] : V^>X>X"jX> * A%IC !£<&&<&. PUT 

100 DIM AX(10) 

110 CONSOLE 0 ,25,0 , 1 : COLOR 7,0,1 

120 FOR 1 = 0 TO 5: READ AX< I > :NEXT I 

130 PUTalCO ,0)-<7, 15) , AX, PSET: LOCATE 0,10 

140 FOR 1=0 TO 7 

150 FOR J=0 TO 15 

160 IF POINT < I , J)=0 THEN PSET <I,J) ELSE PRESET(I,J) 
170 NEXT J,I 
180 END 

190 DATA 128,8704,10786,7230,5148,5140 

m ^ m 

w 


a 

0m : PSET, PRESET 


TltOS 


APL 


TRSi 

• « tmt. 


CPM 

- 


M223 

- 


MZK 

— 


CBM 

- 


PC 8 



TRSn 

— 


PC3 


/z ti L , *& 

/EtfciS 

(Z K y b • -te y 

b <X>t # 1 , 

'I -fe *y 

b 7) £ # 0 (Z &* 

4. 

IF 82 

• **trs]l;. 

/z/z'L, *& 


7)fc3- K£#*>*ll 8 *fc-e, 

0 — 639, 


0-199 



Is^JU 3 

• Kictmt. 


Cl 80 

— 


M243 

- 


MZB 

• t Fn] t . 

/zfjfL, r 

77 4 

v 7 • X IJ T 1 

, 2 t t. 

K y b 

• 'j -fe y b 7) £ 

^ 0 , 17) 

y 

b <nt £ 1 , 2 

<7)^-fe -y h 

<x> t & 

2 , y b 

7)^3<7) 

W.ttt 



BUB 

• IF 82 ilnjlz. 



FM8 • 7fc¥^$UiO~639, Mlt 

0-199. 


PSP • ^tmt. tzt* L, lit 
(i /77 >f y 7 • X — YX'lt, fe 


3— K, 7r>f>*/77^7 ?• 
b'7)££, OFF "CO, ONT" 
1 ii*S. 


PC88 • t . fc*TL, i] 

7) 3 — K 7){(i; £ £: & . 

£ 

• ai^- K*c(±«trai:. 


N52 


PC6 • 0&3- K 

7)fit£ £ S. 


MLT -PC88£IW]t:. fcfcTL,- 


HC • &7) £ £!i ( 1 ) Sr^Tjx 
"t - h . 


FP1 1 • J-— 'TiMMX'TjK-f . 


SMC GPOINT (20, 40) 

• -h 7— • a — K £ 

is-r. 


MZ35 • PC3 t HJ t . 


XI Hu POINT (20, 40) 

• &43f± 

• y * u y b *3 — K . 


MB1 6 -mztl&m* 0-7. 
• J!£fg7)gl{zSTEP£ott£ 
ffi&g. 


IBM55 • PC3 tlslt. fcfcfU IM 
£{i- 1 . 

• tR^F, \&mT 4 


pcioo 

(z POINT ( A ) £ ^ 7 


245 - 


rt-ry h 


F *y h spJJt POINT 


1 ) <£> •£> . 


MSX 


PC6 ilWIb. 


246 - 


SYMBOL ^yM) 1/ 


Jfcft : SYMBOL ( XI, Y1 ) , E$, Ml, M2 

APL — 

SMC L. tltZL. 

CP LOT U X ') 

, M3, M4, PSET 

i i 

TRS, — 


CPM — 

MZ35 GCHR XI, Yl, E$, M4. 
M3, Ml, M2 

W$M : *&5e-*M xx-n^th. 

M223 — 

: i mi toxvm i*&7F+h-$c&<7>% %& £xsm<nmj&*7KLi 

4ix 8 CO K 'V h 3&T'tIiffiU^7jx£ . 

2 M3 f± ij 7 — • =J— K £^i\ 

3 M4 0t/-7^, 

1 'C-90 a &H]$^ 2 -ei80 - *HHte, 3 -C270°;£ [!]&;. 

4 LXWik^m^ PSET, PRESET, AND, OR, XOR, 

MZK — 

XI Hu CSIZE 0 
• * 

S—?)V 

1 mums, 2 tK¥ 2 i&, 

3 #]£*¥ 2 fg 

• PRINT# 0 & . 

CBM — 

PC8 — 

NOT crtfgfefr' eg 6. 

TRSn — 


PC3 — 

MB1 6 — 


IF 82 — 

IBM55 — 


U"OU 3 — 

PC100 — 


p 1 on 

MSX 

~7°U +f =7 A#lj : “A” 

10 SYMBOL (200,120) ."A'M.i 
20 SYMBOL <250,120) , n A",2,l 
30 SYMBOL (300,120) , "A" ,2,2 

O 1 OU 

M243 — 


MZB — 


40 SYMBOL (350,120) ,"A",3,2 

50 SYMBOL (200,160) , "A" ,3,2,4,0,PSET 

60 SYMBOL (250,160) , "A" , 3 , 2 , 4 , 1 , PSET 

70 SYMBOL (300,160) , M A" , 3 , 2 , 4 , 2 , PSET 

80 SYMBOL (350,160) , "A" ,3,2,4 ,3 ,PSET 

BUB — 


FM8 • >££# M. 


PSP — 


m *t m 

Ready 

RUN A A ^ ^ 

PC88 — 


N52 — 


PC6 — 


Ready <[ y 

MLT — 


A } 

HC 





#Sit : 

FP1 1 — 



V =7 7 4 "J 7 • * — V JUMWcnWifr 1 ®. ‘J GCURSOR 


: GCURSOR ( X, Y ) , ( XI, Y1 ) 

, ( X2, Y2 ) , M 

I II I 

• 9iit «r 

Wfe : Mo_t<0 y'y 7 4 -X 7 • — K v 

4#^ : 1 ( X, Y)«±Stotz /7 7 >f -X ? • — y 

2 (Xn, Y„) (n(ifcUO) -x 9 • 

a-y ^K-x 

X h&u, ( RETURN ) * — tltz&fthtlZ . 

3 /7 7 ^ x ? • • *— -cfrv\ 

L fc n 10 <7) K X h 0£ff *<ft**;b |,i:/77^ x 9 • * — V>v 

4 M(i • =i— K $T7r?i". 

5 /77-f 7 9 • 0, 

6 . 



APL 


TRS, 


CPM 


M223 


MZK 


CBM 


PC8 


TRSu 

PC3 


IF82 


1*"<JI*3 


C180 


M243 


MZB 


BUB 


FM8 


PSP 


PC88 


N52 


PC6 


MLT 


HC 


: 


FP1 1 


— 247 - 


si- • #— v; i/ 


SMC — 


MZ35 GCURSOR X, Y, XI, 
Yl, X2, Y2, M 


XI Hu — 


MB1 6 — 


IBM55 — 


PCI 00 


MSX — 




- 248 


®®<7)-tz — 7 GET @ 


: GET@ (0, 0 ) - ( 20, 40 ) . B% , G 

I * * 7 9 ? l) ), tfzlt K -/ h • /77-f 

>y 7 2) £&miZt *) JAG\ 

: 1 mm±.<r>\$:M<r>\tL®. (xi, yd, (X 2, Y2) 

t-t&mm flii^ij PM 

2 xi, X2 (iiiiuiYii^TK^/i^i, Yi, Y2 LUTHtir4if$£2t 1\ 

3 , G £f-J-ltfcl#{±, K y I' • r=7~7 4 ■•/ 

XI, X2 (i 0 ^ftr^wC *2—1 i *C% Yl, Y2(i, 

XXdb h . 

4 , **7 9 ?<x>ffiA&A.£'rr\,\ XI, X2 

It 0£‘Mt$c- 1 tX\ Yl, Y2 l±?r%L -1 tX'<nmzt2>. 

5 Sii^lJti: -^C7C ,F ,'.! T', 1**79? W-oi: £ ') j\ 

T% ffi5e L tz LWj )\m <x> * * 7 9 ? mi hc £ iz m%L 
L&lt ilidTi* 

6 @ti^ij^(±, »»s!u*ft5g l Tz~Kt>'* x u , ^m^faj 

1) < tzi>. Mihicr>&£&jfi'-f £ £ Ufil 1 *) A fill fij Xfo%>. 

«ct-, **iwitt--y-fbL*:#JW. 

2) K -y h • 9 = 7-7 4 v 7 7 777 4 y ( K - h ) <50 US ^ •) X'iV- 

t.titz-X'T-Wm. 

3 'o.—v&m cRT±^)fM. xy fi\U]<r>ixm. xy ;/i.'.jcoji:ri6oinj^ ^rmiu,a: 

52 t-£ zmm. 


zfntf-r/xffl : 


100 DIM BX< 25) : LOCATE 0,0 
110 PRINT" 4 " 

120 PRINT "/■■\" 

130 PRINT" 4 " 

140 PRINT" / \ " 

150 GET 3<0,0)-(5,3) , BX 

160 FOR 1=1 TO 5 : IX=I *3 : I Y=< I MOD 2>*5 
170 PUT SC IX, IY)-< IX+5, IY+3) , BX 
1 80 NEXT I : LOCATE 0,10 
190 END 


* ft m 


/^bk /^Bk /^bk 


♦ ♦ f 

/ \ / \ / \ 


#hs ; put@ 


<7*\y h @ 


APL — 

L. 

TRSi — 

PSP 

CPM — 

pcss *^>1^1:. *=*5L, r 

77^ y 7 gtf?; -C60<M£ 7 <7) *C, 

fJUSTEP^#D^> t, 

M223 — 

MZK — 

CBM — 

N52 — 

PC 8 • 4^ £#!!(<.. 

PC 6 • PC88 £ |uj L . 

TRSn — 

MLT GET (0, 0) - (20, 40), 

Bl% 

PC3 — 

IF 82 GET @ (0, 5) — (31, 15), 

A, 7, G 

• £ fnJ t . tzf' L, &1 amt* 

7 — • 3 — K 'C'tu^T- £ & . i fc, 
G & £ 1 K y h U-lZfitfm 

lz £ ») ftnfrl-6 £ 8 K -y h 

*) iAti*. 

HC 

FP1 1 * , G tfz, 

mwtzi.—*riMu 3) x-ijs -t . 

SMC CGET (XI, Yl) - (X2, 
Y2 ), B% (0) 

• * * 7 9 ? &']s\l\\ b.cr>m\(ii-t — 7* 
£ tT *5 . 

• filial ^ ifc'f-it , l fz.fr Co ») iA G‘ 

3&‘Sr^5ei-|>. 

GGET (XI, Yl) - ( X2, Y2), 
B% (0) 

• /77 4 y 7iiiifi!tf0-fe — -r^rff 0 . 

AGET (XI, Yl) - ( X2, Y2). 

B% (0) 

•**79 ?wm\ I -.<50 T F'Jh'a 

U"<7U3 — 

C180 — 

M243 — 

MZB — 

bub • 1 F 82 irnjb. 

0-639, MBMffS(iO~199£'C4& 
5eT*^ h. 

FM 8 • JfDUi 4- & £ l"J L . ,G 

£Wt6£, mzO~8£X'#7-- 
7 — K £ Jn'/E X £ , Ml <50 K y h • 
iJ7—£ — i£ LT^I) B# ,&*T1" & . 
• , g zmtxm<x>t7 7— • 3 — k 
M^ihA.fZT-7 
fr?rm& £ — £fc L irlt *Ltf **T1" 

MZ35 G ENTER 0, 0, 20, 40, 

A (a ( * ) 

• /77^ y 9 uSj ifii cr> Ifr/iL pfi 

/77 -f y 9 • 

?-> 

•^1, 2ii^*A|SlL. 


— y GET® 


XI Hu GET @ ( 0 , 0 ) — (20, 20), 
B%, 7 

• 7*7 ~7 4 -y 7 Mi *) 

• ^4 0 <y h • =i — K£# 


Lb. 

& t -f ^ x hi®®. 

MB1 6 

• PC88 £[WJI:. 

IBM55 

• MLT tmt. tztSL, 


PC100 

• PC88 t r»j b . 

MSX 

- 


- 249 - 


'T\V H @ 


- 250 - 


— -7" GET @ A 


: GET@A ( XI, Y1 ) - ( X2, Y2 ) , B% 

: 1 K-y h • 777 ^ -y 7 t ') &ts 

Z tfrX^Z,. 

2 Tk^mmxi, X2(i, 1 £ T\ Yl, Y2 li 

Ofrt? *t2&- 1 £ T <n\&X*1h> h . 

3 &m<T)±$ £ (2 GET@<7) 2 

GET@£[H]fi. 

4 t zmmx'&z. 


zf □ >7' ^ J+ffl : • A‘^ — 

pfildftJjUT, B%IC GET @ A T'tft<&&A/T\ 

put ©Armuigu 


100 

DIM AX (10) , BX< 50 ) 

.■COLOR 7,0,1 

1 10 

FOR 1=0 TO 5: READ 

AX< I ) :NEXT I 

120 

LOCATE 0,5 



130 

PRINT" 4 " 



1 40 

PR I NT "/^■V 



150 

PRINT" ¥ " 



160 

PRINT" / \ " 



170 

PUTSK 2 , 4) -< 9 , 1 

9), 

AX , PSET 

180 

GET3AC0 , 1 )-<4, 

8) , 

BX 

190 

FOR 1=0 TO 2 



200 

PUT 3A< 1*5+5, 1 ) 

-< I *5+9 , 8) ,BX 

210 

NEXT I : END 



220 

DATA 128,8704, 

10786,7230,5148, 

m 

*T W 




tf W tf w 




♦ 

/ \ 


¥ 

/ \ 


♦ 

/ \ 


¥ 

/ \ 


#J!B : PUT @ A, GET@ 


<7*^h@X— 


APL 

— 

TRS i 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

• #:£#bh. 

TRSii 

- 

PC3 

- 

IF 82 

- 


- 

C 180 

- 

M243 

- 

MZB 

- 

BUB 

- 

FM 8 

• t m t . 

PSP 

— 

PC 88 

- 

N52 

— 

PC 6 

- 

MLT 

— 

HC 

- 

FP1 1 

— 


SMC — 


MZ35 


XI Hu • GET@A GET 

@X~'<v y h • =/— 

(i\ f ^ x h iijffiGO^ ^ ^ ? ? £ 


MB1 6 — 


IBM55 — 


PC100 


MSX 


X 7 ° 7 / f h • si? — X7)%t£§ SPRITE$ 


Mxt : SPRITE$ ( M ) = “ ” 

®h6 : *??'( h • -tt,. 

«« : i SCREEN 3tc0X7°7 T h • -*M X<F>\&\z J: 0 , ✓ 






■xsm 

0, 1 
2, 3 

256^:$!] 

64^?$i 

8'<T h 
32'<T h 


2 V 'v Y <?)'*? — > £, K< 7 )h' >y h ?iJ££U&£ 

(«) 

• •••••• • ->16it$c<0 FF 

• O O • • O O •—►16 99 

• •••••• •->16ifa&*> FF 

1 SPRITES ( 1 ) = CHR 

$ (&HFF) + CHR $ (&H99)-fCHR$ (&HFF) 4- ... £ i" h . 


y°u : K^h • SPRITES 1C Hx/E 0 » 

Tyrt^b Cv^ 5 -f h * ■•t-f XIS 1 ). 

100 SCREEN 3.1 

1 10 SPRITES < 1)=CHRS<24> +CHRS<36> +CHRSC36) 
fCHRS(231> +CHRSj(255> <-CHR*< 195) 
+CHRS< 195> +CHRS* 195; 

120 SPR I TES < 2> =STR I NGS < 8 . CHRS ( 255) > 

130 PUT SPRITE 1 . < 100 . 100) . 15. 1 
140 PUT SPRITE 2.< 110. 110> .3.2 
150 PUT SPRITE 3.< 120.120) .11.1 
160 GOTO 160 


#fiS : PUT SPRITE 
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^T’i'hS 


APL — 

SMC — 

TRSi — 

MZ35 — 

CPM — 

XI Hu — 

M223 — 

MB1 6 — 

MZK — 

IBM55 — 

CBM — 

PC100 — 

PC8 — 

msx • #:£# m. 

TRS„ — 


PC3 — 

IF82 — 

3 — 

C180 — 

M243 — 

MZB — 

BUB — 

FM8 — 

PSP — 

PC88 — 

N52 — 

PC6 — 

MLT — 

HC — 

FP1 1 — 
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put @ 


: PUT @ (0, 0 ) — ( 20, 40 ) , B% , PSET 

: * -V 7 9 9 A fzli K "/ b • /7 7 >f y ? £®j®coli^t iL.miz3k7f;-f 

h . 

<&m : 1 mm±<7)&:M<niiLW:(xi, yi ) — ( X2, Mzn&wt 

-t 6 m ft m <n i*j mz , get® -eseyij k -t - r l fz t <o £ $ 

2 -7 ? ^ t Lx-t— -rztifz e&hr^tM 2 

teiS XI, X2 (i 0 1 £ T, Yl, Y2 fi 0 

^ - 1 £ X'<r>i\fi £ t h . 

3 2 <o|5£, m 3 T > ? ^ 3 > • 3 

— K£ftit& ^ ££'"??£ -2>(@n& t «T). 

4 k "/ h • /77>f ••/ 9 t Lt-t-r$a/: 

XI, X2 (i 0 7&*^fiT^C*2-l^ T, Yl, Y2 f i 0 Xp Mt3£ * 4 - 

i imi). 

5 4 T>P£, W> 3 <0#t$eT, PSET, PRESET, OR, AND, NOT, 

XOR <OV'T PSET <0 £ £ gd?lj 

T'- 9 £ Ofij jfli iz Wf; L , PRESET <r> t £ ffi -£-f & . OR, AND, 
XOR CO t ^ Sd^lJ 7-'— ^ > &>j'< £ <0 |!5J TTiraiSUft £ ff 7 . NOT 

ii T- * <0 £ 5 e £ fj- 7 . 

6 i§#fi, GET® tjtifCl'Cf-). 


n IJ : -1 "j o • a‘^ — PUT® 


10 DIM AX < 4 ) 

20 FOR I =OT04 
30 READ AX < I ) 

40 NEXT I 
50 FOR J=0 TO 2 

70 NEVT^J 1 6 * J ’ 0 ) _i: 1 6 * J+ 1 5 . 3> .AX, PSET 
80 DATA 84 ,119,81 , SI , 247 


m n m 


#fig : GET@, PUT SPRITE, SPRITES 


ZT’w S @ 


APL 

— 

TRSi 

— 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

— 

PC 8 

• fw 

TRSn 

- 

PC3 

- 

IF 82 

PUT® (0, 0) — (20, 40), 

B % , 

7, PSET 

• mZLZ ^ Jet |.»J t. tztz'L , 3 

#B^)5l«[tife3-K-C, GET® 
t&lztfii t£lt, GET® TUX 
- K£«5gL*l+tt 

tfjS: 

® (i Wffl&T£ &. 

U'^<7U’3 — 

C180 

- 

M243 

- 

MZB 

— 

BUB 

• IE 82 tw. It. fcfcru & 

r? — 

K£^t5i, ^.^cofeiz 


FM 8 

PUT® (0, 0)— (100, 200), 

B%, 

4 

• 4- £ > Iwj b . 

P SET £.* £T£ ft (+ &• v ' . 
xe - c^iT- co fe £ Ht > e - t i> . 

h t. 



PSP 


PC88 PUT© (120, 700), B%, 
PSET 

• m 5e/3£f?; £ * i it sa^ij ffl -r— 

9 £ i~ & . gii^'ij £ cr> & (2 ®i?ij 

•4#a^5iife*e, ait-Kt® 

0 i ft*: Sfe£ i] =7— • -t — k 

Ti£7l^co&=>- K£*&5g-r*. 

£ tz, 5#0<JO5l«Sc’CI t]f£lz, H 
£t7^— • t- KC:^;e.&P&<ofe 
a - K £«£-«*. 

• fid?ij £ £ ^p(c K A NJI ( m ^ =? — 

K) 3— 

T'# ^>. 


N52 


PC6 PUT® (X, Y), B % , 
PSET 


MLT PUT (120, 70), B % , 
PSET 

• GET 

• ^Hi£'#B&T-i) ^ XOR 
■ PSET (^W^»T) 

PRESET (i 

tefe LT^TK-f <&. 

NOT l£ ^ v >. 
i ^ . mM Jilt $: co ^^-^77 7— • 
3 — K T" K ••/ h £ ■& . 


HC 

- 

FP1 1 


i ?z. 

mtlfefcli AND, OR, 

XOR <F>&. 


SMC C PUT (XI, Yl) - ( X2, 
Y2), B% (0) 


IE5lJ®Stti tl PUT @ 


m&l tzm 0 jht tltz * -v 9 7 7 £ 

GPUT (XI, Yl) - (X2, Y2), 
B% (0), 0, 4 

• /77>( -y 7mm±.<r>^^.%mz. 
Sfi?i|{cHx‘) K-x h • 

~7 4 ", 7 X £ ^7^1" -2). 

• fs 3 =j — K T, 

SB 4 *>*&5Et±iMfe=*- KT'*)S. 

APUT (XI, Yl) - (X2, Y2), 
B% (0) 

7 F ') t' i — h £ , fieyij»c^*)ii 
ttltzT V ') b'jL— HMU- «fc o 

T^^-r-6. 

KPRINT (M£), — 

K, a — K 

• /77^ y 


MZ35 KDISP A $ 

A $ =CHR $ (&4C24, &4D68) 

• CRT T* 7,-7°^ 4 \,zm^ & thtj 
"t" S . ' 

• < , ifS^ t^ 7 ? 

tb*T# a. 

KPRINT A $ 

A $ = CHR $ (&4C24, &4D68) 

• "7° *J > 7lzm3 * 1 $:ltitJ’f&. 

GDISP 0, 0, 20, 40, B@ 

• CRT i:/77^ y 7 & 

4-/7 xcoffiWiZ, CRT {zm^r, 

4* -i) . 

• Mi ts\ihh. 


XI Hu PUT @ ( 0 , 0 ) — ( 10, 10), 
PSET, 7 

• -y h • 3— K£ 


MB16 PUT(40, 50), A, PSET 


• $£#£ ££»&•** & £ XOR. 


IBM55 -MLTilHjt. fcfcfU 
/77 ^ <y 7 • K^)Atl>4. 


PC100 • PC88 nfitifelz**? 7 

7 & it*n l tz h cr> -e*> & . 


MSX • t&M&L. tz ti L , PUT 

i .SPRITE X 0 , SPRITE $ 

$zmzi%ft£titz KvF • /77 
4 PUT. — i 

SPRITE, SPRITE $ #88. 
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77\y S@ 
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PUT @ A 


: PUT@ A ( XI, Y1 ) - ( X2. Y2 ) , B% 

: 4 + 77^4 Fv h • /77< 7?s, 

: 1 ^<7>7k¥teli XI, X2 <i, OA'bM- 1 iTOfit, 

MltflLM Yl, Y2 fi, 

2 GET@A t'S^iJic t ^ 

1 ~&. 

3 ^»)&L<7)E]£*&< £ £MflJT'&-i>. 


7°p : -r 'V O • A^ — • A^? — >^jli 

® 1C Hi UT, GET @ ArM^iiA.r, 

PUT@ A r^UiEU ft *!*-£>. 

J 00 DIM A£< 1 0 ) , BX( 50 ) : COLOR 7,0,1 

18 LOCaUVs SiREAD ^U>:NE^T’! 


30 PR 
40 PR- 
50 PR 
60 PR 


NT" 

NT ",/wm\" 
NT ”'^r N " 
NT" / \ 


!!8 NSf A i!l5o 5 ' 1, " <, " 5 * , '' 8> ' K '' 

220 DATA 128,8704,10786,7230,5148,5140 


m fT 


tf tf tf w 


/ \ / \ / \ 


#1: GET@A, PUT C 


7/vy^@I— 


APL 

- 

TRSi 

- 

CPM 

- 

M223 

- 

MZK 

— 

CBM 

- 

PC 8 


TRSn 

- 

PC3 

- 

IF 82 

- 


- 

Cl 80 — 

M243 

- 

MZB 

- 

BUB 

- 

FM 8 


PSP 

- 

PC 88 

- 

N52 

— 

PC 6 

- 

MLT 

- 

HC 

- 

FP1 1 — 


SMC 


MZ35 


XI Hu 


MB1 6 


IBM55 


PC 100 


MSX 


• PUT @ T'T'c* h. 


PUT SPRITE 


Wit t : PUT SPRITE Ml, STEP ( X, Y ) , M2, M3 

I -J 1 1 1 1 

W»&"T 1 1 

SPRITE $ K v h • — >£ 

4$^: i micj: 1 ), h — o 

T'ta^'t' h . 

2 xr7^f xr-7-f h 

3 HO^JUt<7)X ~? = 7 -4 b o 7l*§ o', X 7° 7 

T hc7)M4*o/c^^m^^>. 

4 STEP ££»&■*-& £, *£*t^*i £ &* h . 

5 M2MJ: ►) t!; 7- £0-15 <7>*k{fiTl&5e1-£ . %«& L *!*&&& 
7 *7 • ?'7 77 > K • 

6 M3UJ:»), SPRITE$ 7: ^5£1~&. 

7 ON SPRITE GOSUB^CC J: ») , 777^ h • / 

») Hi & m') h . 

8 SPRITE ON/OFF/STOP lz X •) , M ») iA^^^tT, l£lt, 

— NM9ih£fr l . 


~f P ^7 ^7 A#lJ I SPRITES #HB. 


#0S : SPRITE$ 


y^h- - xyzp'fh 


APL — 

PC 6 — 

TRS — 

MLT — 

CPM — 

HC — 

M223 — 

FP1 1 — 

MZK — 

SMC — 

CBM — 

MZ35 • MZB t W\ t. 

PC 8 — 

XI Hu PATTERN (-16, 

KANJI $ (&H7F0) ) 

• m 1 ■*i*fc'c«tt, m 2 ^mx-sc-r- 

POSITION 0, 0 

• PATTERN @J® 

_t (MtLmZfethh. 

KANJI $ (&H7F0) 

• $\1tL'V J §-Lh1Xtzmfr'<9 — >* 
W6. 

TRS — 

PC3 — 

IF 82 — 

ls*<Jl*3 

C180 — 

MB16 — 

M243 — 

IBM55 — 

MZB PATTERN -16, A$ 

•WlSIffc-CJS*. »2 3l*fc-CK-y 
h . / < y — > £r L T di® U 4 eu 
< . 

• 777^ 

POSITION 0, 0 

• pattern *znfti-z>mm±. 
<T>\y 

PC100 — 

msx • 


BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 


7 "if— BEEP 


JKst : BEEP 1 

LJ 

WtMt : 7’*r—&t: m^-t. 

: i SI 3 &£ 1 tiftfe-fz t -r+f— £ p.|ib l, o ^^xe 1 -^> ~ t t-t 

-*f— £ ita6 h Z t 6 . 

2 MtSi, -SEl^Hi] (#7450 ms) T+f-Zm^L, Jh<*>6 

3 b EEP 1 £, BEEP 0 £»rt & i ») 

*jc<. ( STOP ) * — 


37 P ^7 ”7 ^\0lj . 5 e CO ftff fl5 J fl ij (j’[?j ^ if) L ^ T* d7~U" — 5 HI Bjj »o U , -^-Ti-^-' 
U &n#) Id BUZZER ON, U| IJ £*-T> 1 J Id BUZZER 
OFF 

10 FOR 1=1 TO 5 

20 BEEF‘1 : PRINT "BUZZER ON " ? 

30 FOR J=1 TO 10: PR I NT"-"; -‘NEXT j 
40 BEEPO: PRINT" BUZZER OFF" 

50 FOR K=1 TO 500: NEXT K 
60 NEXT I :END 


m & m 

BUZZER ON BUZZER OFF 

BUZZER ON BUZZER OFF 

BUZZER ON BUZZER OFF 

BUZZER ON BUZZER OFF 

BUZZER ON BUZZER OFF 


: music 




APL — 


TRSi — 

CPM — 

M223 PRINT CHR $ (7) 

MZK MUSIC "DE#FGA" 

• TEMPO*T'It^LIij®ST', 31 
mn (••) T'Hi i ti t: sc-pwi Z'fn 

CBM — 

PC 8 • 

• PRINT CHR$ (7) T' BEEP £ IhJ 

6. 

TRSn — 

PC3 MUSIC Tl, 1, C 

• 3! Stic <£ 

■5 . 

IF 82 BEEP 

• *xt wit. fc*fu siawitt* 

$TV\ 

• 4:-££|iJb. 31 

%fclZ0~255£ TCDl&i; t 
Rfcfi&V'. 

C180 BUZZER 

• 1 F 82 twit, ^soms m 0 ^ m lk 
^ 6 . 

M243 • M223 tWlt. 

MZB • MZK £ |SJ b. 

BUB • IF 82 kHIb. 


FM 8 -**£HJb. 


PSP • IF 82 tWIt. 


PC 88 


N52 

• IF 82 ^I5]l:o.2f«o^ 

6 . 

PC 6 

— 

MLT 

• M223 tWlt. 


HC SOUND 10, 5 

• % 1 <03l$:f±^fMO ~56. 

• ^2 P<$X0.1 


FP1 1 BEEP 

. -T-v—zmti-t. 

BEEP ON 
BEEP OFF 




SMC 

* IF82 <t IHJ U . 

MZ35 

- 

XIHu 

•tttwit. 

MB1 6 

• IF82 £ III b. £*:, 

PRINT CHR $ ( 7 ) 

IBM55 

• MB 16 twit. $ri5 f l/4 



PC100 

• 1, 0*0*t5E(±£:<, ^ 

$t2 io/jfttT-^6. 

MSX 

• IF82 ^ III b. 


m : ,nm music 


M& : MUSIC E$ 

T 

&& 

4 #j|fc : 1 tempo t 

2 T 7 9 — '?*. E$ 

3 CDEFGAB £ b . i& 

&VLl*a 

4 R, 

9 £ L, ffljco^g^iSt < 

M) e $ ="cincnEn# c” 


y°n 9 = 7 a#iJ : tempo 

10 TEMPO 4 
20 MUSIC "CDEFGAB" 
30 END 


#J& : TEMPO 
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^zL—V'yO 


APL 


TRS, 

- 

CPM 

- 

M223 

- 

MZK 


CBM 

- 

PC 8 

- 

TRSu — 

PC3 • tttmt. fztZ TL, 

TEMPO 

IF 82 

— 

L ^^U.3 

- 

C180 

— 

M243 

- 

MZB 

b. 

• tttmt. tzt* l, f& 

BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

- 

N52 PLAY E $ 

• E$ X* 9 9-7', 

T 9-t> b % ¥<7 )t'—9 £ 
•fHA£”T ■& . 


PC 6 • N52 t fflt. 


ztazmmix, *&*#£»& 3 



. SOUND fii^frbb. 

MLT 

- 

HC 

- 

FP1 1 

- 

SMC 

• N52 tfflt. tzt' L, 

E$ 

T'X > rtf, ^f<7)M£, Jr 9 9 

— 1" 


MZ35 

•f>,t:{,E$ 

£ b 


XI Hu 

• >F^:ilH]L. fcfcTL, T 

9 9 

-•7'^ii 01-08, 

VO- 



• PLAY £T MUSICS TEMPO 

• PC6 


MB1 6 

• N52 <>: [WJ L . 

IBM55 

• N52 t Is] L . 

PC 100 

• N52 £ ISJ t . 

MSX 

• SMC t mt. 

• PLAY 

(M) itcj: vmmvm 

£%nb 

ZtfrX^b. 

•SOUND ^1:1'), PSG ( 7°o 
9'7-?~7)V • -*f*J > K • x jl T- ^ 

-?) 

<n u •>' X 9 lz ik:t%T-'— 9 £ 


: ^r ^ jA^ $1 T"^ b . 
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7 s - TEMPO 

: TEMPO 1 A 

fcl±*S5e*c 

ffitife : **»*?>■?># (ass) £«js&-rs. 

$%Wl '■ 1 MUSIC . 

2 •SmcnAli, \-h'io 7 



hi a J: 

%>koD£&'Hm.M) 

“ i 

" ••• J 

= 130 (&&) 

“ 2 

” ••• J 

= 150 

“ 3 

” ••• J 

= 176 

“ 4 

” ••• J 

= 230 

“ 5 

” — J 

= 300 

“ 6 

” ••• J 

= 500 

“ 7 

" ••• J 

= 1000 


7°P : MUSIC £ffl*AUt+ HU = 7pV^5/tiK#. 

10 TEMPO 4 
20 MUSIC "CDEFGAB" 

30 END 


0m : MUSIC, PLAY 


^-ysK 


APL — 


TRSi 

- 

CPM 

- 

M223 

- 

MZK 

• #£#.®. 

CBM 

- 

PC 8 — 

TRSu 

— 

PC3 

V'. 

• fc- <' h 

IF 82 

— 

3 

- 

Cl 80 

— 

M243 

— 

MZB 


BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

— 

N52 

- 

PC 6 

• PLAY #®.. 

MLT 

- 


HC 


FP1 1 

— 

SMC 

• PLAY#®. 

MZ35 

- 

XI Hu • A ^30-7500. 

• $cfii£{2 1 frhtz 0 4 

MB16 

- 

IBM55 

• PLAY #®. 

PC 100 

- 

MSX 

- 


A tetitf- \'<7)*-y°>$: open A aj * 


: OPEN “POUT” FOR OUTPUT AS 

I I 

FILE 1 MODE 3 


: x&tjtf-b l, t&. 

4#^: i Wi7 7 ^ /p£|hjl 

2 ^e-K^ (MODE I2ii#3 £^SE-f 6. 

4 7 T 4'>'U#-^(i, 1 ~ 8 . 

5 RS-232C ■ &:— b <r>Or — r>i: k 


;/□ ^ =? A#)J ! >^CD}g-$c£-;h.7cA^ LyJb • tK— MC^- p 

01^*0 CLOSE 


10 

OPEN ’'POUT” FOR OUTPUT AS FILE 

1 MODE 3 

20 

FOR I = 1 TO 5 


30 

PRINT #1 , ’’SQRC" ; I ; ") = " 

; SQRCI) 

40 

NEXT I 


50 

CLOSE 1 


60 

END 



^ 'ff m 

SQRC 1 )= 1 
SQR( 2 )= 1.41421 
SQRC 3 )= 1.73205 
SQRC 4 )= 2 
SQRC 5 )= 2.23607 


#fls : CLOSE 
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y-yy 


APL — 


TRSi — 

CPM — 

M223 • 

MZK — 

CBM OPEN 1, 4 

• 7° 0 > 7 , f'^f XT’L'-f, i] -t -y 
b, IEEE '<7., * — X— K, T' 
4 a 7 £: ¥<nir — -fyfrXr^ Z>. 

PC 8 — 

TRS 11 — 

PC3 — 

IF 82 OPEN “LPT2 : ” AS #3 

• 7* >j >7, RS-232-C ;K — b , Ji 
-b 7 b , ROM ij— b ') v •>', T' 
4 A 7 3: }?mr — -f'sfrX'%- h . 

OPEN “0”, #1, “COM1 :” 
4 , 7. b y 7° • t' y b 4' 

C180 OPEN #1 : $ LP (40) 

. % — — F, CRT, 7° U >7, 

f-(X7, mtm%k%b'<7)J!r — 7 
>&' t'£ £>. 

• lx req, 

ST%, TID%^&&. 

M243 • 4^ £ t f-Jj t . 

MZB — 

BUB — 


FM8 • W-<;U3 t\3\t. 


PSP OPEN # “CM1", 
“14N03200”, 1 

• 7“ 0 > 7, RS-232 C tf— b 
— h. 


PC88 OPEN “CAS1 : TEST" 
FOR INPUT AS #1 
• b, *— tf— h\ ru > 7, 

X7VA RS-232 C rK — b 
t£¥<F>* — 'r>-h<X'% i>. 


N52 


PC6 — 


MLT — 


hc • p^;u 3 t iwi t. 


FP1 1 OPEN “COMO : POUT" 
FOR OUTPUT AS #1 
•7 ^7b, * — tK— K, 
7^X7, ROM ^ RAM^°7 
7, iim®^^^^T-7°>7!?'"C' 

• 7r >f ;u#-^(± 1 —15. 


SMC OPEN/I, OPEN/O, 
OPEN/R, OPEN/S 
• — /K— K, ROM ' s “ v 7 , 7° 0 

>7, f-( ^7’U'f, fj -te y b , 
RS-232C +°-b^^t-7‘>A'' 
-C£ &. 


MZ35 •fSMa&L. tzt*L, 
CHANNEL (i RS-232C 
■V t' >»K7)gx/E & <£ t>\ T'— 7 7) A 


XI Hu 


MB1 6 OPEN “COM : 1200, E, 

7, 1" AS #1 

• 7° 0 > 7 , ^r — /-K— K, f^7, 
RS-232C &£'*-7°>-e£ &. 


- 260 - 

Att }**°- b<7)* *-7°>$: OPEN 


Z(?){fc<TUZ X-oX, tK— U— h, 
t' — ''“U-fvf, x F 7 7* • 

tr-y h 


IBM55 OPEN “COM1 : " FOR 
OUTPUT AS #1 

=* — K, 

U'f, — 

T'£ S. 

• OPEN 7 T ^ /utfOj: 9 i, pf. 


PC100 • OPEN “COMn I (d 

«fc ») RS-232C ,-K— Y<nar — -r> 


MSX OPEN m T'<4 ^:7 7 
>f FOR -t— K AS 

• 7&-fe-y K 7°'J > T-^f X-7°W 

>r 4* — 7 P >^T'^ Z>. 


xthti 


y-yy 


awn**' •=> com y com ( n ) on 


Bit : COM ( 0 ) ON 


rtf— h #■» 


mm 

*#« 


zn ~ j. — -y — g > • rtf — h D CO ATj^FJ ') £:nT ”T"t~ 6 . 

1 X°— h #-*7 (2, 0-4OSS«[^IB*Ct&5ei-*. 

2 COM ( 0 ) ON X'XtJ h . Z<n^ Art** 

&6£,0N COM (0) GOSUB 

f&mJis— l-xn&felzfci t (T^-7°o /7 AW 

<7)«fc -9 »c ),*§«**&/, *5 £ x * y 7 2) 

j&*ai< 4‘otl^ *5 Z £*<*£*> -C&jfc. 

3 COM ( 0 ) OFF X'\tJ&m±1r&z £*<X!>£&. 

4 COM (0) STOP ^A*^$ttttt+£— ^frt£ 

ii, A^3 

tfh^tzZ COM ( n ) ON 

Mt-ru 

5 7’D/7/,^Tl^Cli, COM OFF^^fftS. 

6 ON COM ( n ) GOSUB £1$-? £ £\z.%EXhh. 

“□ $ a > • *- b a>£x. — ?m. itzt i. £ <7>MU*IJ 

/B-f&fctfxJO''— K**xT. 

2I ^ 9 "j 9 tZb.£rzl±.*<r> 

vmzftM'tzzt. 


zfn 7=7 Ak tfij : *athir«©aft5S«i:UT«ffl-r*(*tf«iiON com 

(n ) GOSUB 

10 OPEN "O" , #1 , "COMOs (S7E1 ) " 

20 OPEN "I", #2, "COMOs (S7E1) " 

30 ON COM <0) GOSUB GO 
40 COM (0) ON 

50 A$=INKEY$: IF A$="" THEN GOTO 50 
60 PRINT A$;: PRINT #1,A$; 

70 GOTO 50 

80 COM (0) STOP 

90 B$=INPUT$ <L0F(2) ,#2) 

100 IF LEFT $ ( B* , 1 ) =CHR$ ( ?<H7F ) THEN GOTO 120 
110 PRINT B$; 

120 COM ( 0 ) ON 
130 RETURN 


#B3 : ON COM ( n ) GOSUB 


-261 - 


□6> • 


APL 

— 

TRSi 

— 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

— 

PC 8 

- 

TRSn 

— 

PC3 

- 

IF 82 

•A££|hJL. tzt* L, t: 

- b 1-4 Xbh. 

Is s'CJU 3 


Cl 80 

- 

M243 

— 

MZB 

- 

BUB 

- 

FM 8 


PSP 

- 

PC 88 

COM ON 
COM OFF 
COM STOP 


h l:o^t fflU$lztf#hX'*>2>. 

N52 

- 

PC 6 

_ 


MLT 

— 

HC 

FP1 1 

tf— 

•PC88i|5]b. 

Hi 0 - 7 icov^TWSb. 

SMC 

- 

MZ35 

- 

XI Hu 

- 

MB1 6 
6. 

• — b #-^(i 1-4 Xh 

IBM55 

• T“— h #^(i \&tzl±2. 

PC100 • rtf— b 1 <7>A. 

• -7°o 7'7A^7H#fc(2C0M^0FF 

OH^COM^STOPT'i £v\ 

• PC88 £ [hJ L. 

MSX 

- 
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iilf \ 9 \%£cr>Atim<D'frm ON COM ( n ) GOSUB 


7r> • • u-y-y 


: ON COM ( O ) GOSUB 70 

iK- V ft 

mm : = i '> 3 > • rK— h 7°o 

1 Mrn RETURN tCiot, X 4 > * 

7”o 7*7 A<7)flJ ») jhMtt)'*)' *0 ^MU7"n /7AW iji'lj tip i> 

£'6. RETURN fftt&fcfeLt: t £ It, *<7>ff 

fr h . 

2 &L3l7“u tM‘)&*a«»£Lfcl$,COM 

(0) ON <^;R&T'fctt;h.«r$r£>$:v\ 

3 #fz 

s *j2&® v ' co -cm fij -c* s . 

“tHO &* ^ff^«07o A £&£:!:: — B#{#il-.$-tt, 

*kbz.b. — iWil-.l /7 d 


(n) ON 

MCOST : 0.09 TO DATE: 3917.67= 477. 

**QN AT 20.417 - OFF AT 20.425 ON 01/19/82 
CP DISCONNECTS 


#M :COM ( n ) ON, ON KEY GOSUB 


APL — 

TRSi — 

CPM — 

M223 — 

MZK — 

CBM — 

PC8 — 

TRSn — 

PC3 — 

IF82 • *-*:£ mt. tztz ru 

— h 1—4 "C#> 6 . 

U~UU 3 • 

Cl 80 — 

M243 — 

MZB — 

BUB — 

FM8 • & £ £ I»J t . 

PSP — 

PC88 ON COM GOSUB 70 
• 3c#-*7 coft;b 0 (z *c 

#6. 

N52 — 

PC6 — 

MLT — 



HC 


FP1 1 ON COM GOSUB 70, 
170, 270 

• HIM(zCOMO-~COM7 io* 

nfcLxw&.-tz. 


SMC 

- 

MZ35 

- 

XI Hu 

- 

MB1 6 


IBM55 

• tf— h #-^(± 1 £ fc(i 2 . 

PC100 • ?K— h 1 <7)^. 

• ») (z 7~^U t 

MSX 

- 


lx mm term 


: TERM a, 1, 0, 1 

mm : 

: 1 

2 


3 

mm : "RS-232C 

'liiiht-HltiUOf.fa. /<v 3 wotfe-ft, iJUH-f > ? — — 

2l ^'Jr-f 2ii=»- K(-#V'*C, “ 1 ” L < it, m&lz-ti t -5 b 

( ' < 1 j t * fcffriinL. 2il=»- Kc7),^») 

■t*- u-r k#-) *-k— t (i, lu^^mw^wix. i *— 1 ± 2 iifa y-u & 
^Xlt 1 t' / \/\ WXhh. di-MMi, ~iL£W.t LfcAS ^Xhh. 

"^r-M^xt M-fiH '-rnio^K'j t /; a\ Bt 

*-*- K*‘«^ (,ta hi>bi3 - • ^' 

•y 9 7) LX< £<7>£ai*1-&). 

— <?>*{:: /'It <fc -5 

6> V h BASIC T'a h an- RS-232C iiMEllftfcffl v'T, ?— = X)V • •=£— K 
ic^o-cv'^. *f*«0 BASIC ro nsc t. 

7, xzi- • 


'#1 *t 0»J : :*:S!?tf3£$S ACOS-600<7) TSSi^J&i: UTilfflt-5. 

term J*2.. 1>0 


txi %mrb. 
RS-232C 1) £iILT, 


5l«k(£**i9) 

m m 


1 #g 

3 — K 

a---ASCII K, j- -JIS 3— K 

2 

/N° IJ -f /f 2> 

0 - NON, 1 --ODD, 2 -EVEN 

3 

b 3> 

0 -«iflf9tt«[X64 v 1 ••• X 16 

4 #g 

“7 >f — K • 
x yf *y -f* 

0 -OFF, 1 --ON 
ON * -V 'J v V • »; 9 — 

> - =>— VZ'gmirb t 

(w -& . 




TRMINAL ID - 99 
PROGRAM NAME - TSS 

ACOS 7? TSS ON 01/12/82 AT 17.039 

USER ID -kiso 
PASSWORD— 

TXOGWBMWEPVR 

565 BLOCKS FILE SPACE AVAILABLE 
SVSTEM ? 


CHANNEL 1111 


#03 : OPEN # 
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5 i~1-)\s 


APL — 


TRSi 

- 

CPM 

- 


M223 • OPEN# ?CXm&£* — 

v°>L, % LX V ~7 b *7 

x.TZi'Etuzmt- xhb. 

• BASIC 

b. 


MZK — 


CBM — 


PC8 • 4^#!!U. 


TRSn — 


PC3 


IF82 • OPENotT'IS®^* — 7“ 
> L, ^ L T A tfcTj <50 V '7 


U"<;U 3 TERM “S8N2H" 

• S(ii7o.y ?*i5£T\ S ( Slow ^ 

0 .y ? ) J/:|iF( Fast ? u y 

?), S t#>§. 

• 8(it'7 Ft^T", 7 ( 7 fcf 
•y b ) ttzit 8 ( 8 by b ) Xh 
&. 

• N it'< 'J T 4 N P*'J 

t 4 *L) l/:liO (3?) 

E(fffi), 

• 2 !i 7 f 7 7" • b v b tfOti^'C, 

1 (IX b v-7 0 • h '7 b )£fcl± 2 
(2X b 77 p * t*7 b) T'A-S. 

• H K<o*&5eT\ F (£ 

-C&&. 


C180 -IFSa^f^b. 


M243 

• M223 tlHjb. 

MZB 

- 

BUB 

- 

FM8 

TERM “S8N2HA” 


$S#£iiP-</U3 £|b 3L. fcfcfL, 
A(it-b LF^t, A (iff 
V'Niifrbfcv'. PC8 c7)7 4 — K- 
X^ 


PSP TERM 1, N, 3, 0, H 

• 1 Itmmis — b 1 ~ 5 

Xh b . 

• N (± * < 'J T 'i <50 T. N( y N° IJ f 
-f 4-L) i7 k c(i O (^) S tzl± E 
( f3o ) X"&> b . 

• 3 (± X b 7 7° • b' -y b <50t^£*C, 

0 ^ fz\t 1 ( 1 b -y b ) i 

fe(± 2 (1.5b 7 b ) £fcl± 3 (2b 
•y b ) Xh b . 

• 0l±H?^ 9\k<r>^^X\ 0 

( 7 b y b ) £fzli 1 ( 8 b7 b ) 
Xh b . 

• H itmmx:— K<0*t5£-C, F (^ 

h (^zim^^) 

T'#) -i> . 


PC88 TERM “COM : E71X”, H, 
800 

• COM : lif-* 

COM1-3 Xhb. 

• E lt'<n t 4 cnm^X', Nttzl* 

0 (^) E (fffi) Xhb. 

• ±T 7(il 3C^<X> b ••/ b &<0*&5£ 
T, 7Jfcli8 b‘y b T'#> -i> . 

• 1 (i X b y X • b y b 

1 ( 1 b 7 b ) tfzli 2 (1.5b -y 
b ) £fc(± 3 ( 2 b-y b ) Xhb. 

• X it XON X >T y -f-<7)^^*C, X 
it XON/XOFF IZ £ bMinfflVMZ 

• H It mm x - Fcoffife X , F ( ^ “ 
m ^ a 4> )i^iiH( ^ - m // a 5> ) 
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TERM 


T“£ h . 

• 80012, ') h BASIC 7”o h ^ 

>v 6) 

mm<7>±£ ? 

• znilfr, RS-232C#ffl^^L 
T, CHANNEL, SEND, RCV, 
SENREV, OPCHNL, 
POLLING, RLIST *<b h . 

N52 — 

XI Hu — 

PC6 — 

MB1 6 — 

MLT — 

IBM55 • Wffl<7)7o 

HC OPEN “COMO : ” 

• OPEN ~SCX" RS-232C tf— h 

PC100 • &mcr> TELCOM ttb i> . 

MSX 

FP1 1 TERM “COMO : 

(F8N2H )" 

• COMO-COM7 

• F (irK-P -f h <7)^T", F 
(DIPSW <7)fi£) £fzlt S(DIPSW 
<7)1/4 £7)iit) Tb6. 

• 8 (i tT -y b ^C^SeT', 7 £fzl* 
8 -C& £ . 

• N lt'< 'J -T 4 so-H^eT, N( '* 0 -f 

4 £L) £fzli E (f&) 0 

(350 T*>&. 

• 2 (i X h -y 7° • t' -y h CO^T', 

0 (lb'yM £ fz fi 1 ( 1 . 5 t' 

•y h ) £ fzlt 2 ( 2 t 'y b ) T'^ 
^>. 

• Hliiffiff*- b'<7)*t5eT', F(£“ 
m^ 4) ) £ fc(± 

• zj u > ( : ) £, 

F8N2H JZH3:5££jK£. 


SMC — 


MZ35 TERM 1200, “7E1”, 1 

- r-?cr>^& 

<tr— u 4 b (il200, T 
K, 

'Jf^ • X b 7/ • t'y b 1 izm 

tel, cr Fiz&nmzzh 

tz-£Z>. 





MvtlJUii&rFTiT, »jt TIME ON, TIME OFF, TIME STOP 


l ® TIME ON (3) TIME STOP 

(g) TIME OFF 

4#^ I 1 TIME ON<JO£:£, TIME ») ON TIME 

GOSUB 7c T'JhaE l ^ ^ ^ ^ fwj 1~ 6 . 

2 TIME OFF <7) £ T 0 jL& £ ^ihi~ 6 . 

3 TIME STOP X> b £ 7 4 r ?'#J ') &<£*■ 6 . #J 

•) iA^fi'£*ftft-(t6£\ TIME ON 

4 yn/7^ JH#(Z(i, TIME OFF £^frf^£ T'& 6 . 

5 ^ •) fill IXtt INTERVAL ON, INTERVAL 

OFF, INTERVAL STOPTMt?. 

6 T > INTERVAL Ml (Ml (if* 

4M&) xfti. 


**7i$raic time OUT tthil UT 

10 CLS: ON TIME GOSUB 110 
20 INPUT "PRESENT TIME" ; A# 

30 INPUT "LAST TIME";B# 

40 TIME$=A# 

50 TIME B# 

60 TIME ON 

70 LOCATE 0,3: PRINT TIME# 

80 GOTO 70 
90 TIME OFF 
100 END 

110 LOCATE 0,3: PRINT TIME# 

120 PRINT "TIME OUT" 

130 BEEF'l 

140 FOR 1=0 TO 200: NEXT 
150 BEEPO 
160 RETURN 90 

■m ft m 

PRESENT TIME? "15:00:00" 

LAST TIME? "15:01:00" 

15:01: 00 
TIME OUT 


#0S ; TIME$, ON TIME GOSUB 
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5>T6-7r?, 9T6-7 \Z>, 5 >^L-X ^7 


APL 

— 

TRSi 

— 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

— 

PC 8 

— 

TRSii 

- 

PC3 

- 

IF 82 

- 


- 

Cl 80 

- 

M243 — 

MZB 

— 

BUB 

- 

FM 8 


PSP 

- 

PC 88 

• TIME ») (-TIME 

$ £ ^ ' 6 . 

N52 

- 

PC 6 

- 

MLT 

- • 

HC 

— 


FP11 — 


SMC 


MZ35 ON TIME 
OFF TIME 


XI Hu — 


MB1 6 — 


IBM55 — 


PC100 • TIME T'£: < 

TIMER “C* ********* tWt. 


MSX • INTERVAL ON/OFF/ 
STOP**, T -9 4-? 

m ») L Xi%m X$i>. 
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7 T 0 ON TIME GOSUB 

Jfcst : ON TIME GOSUB 100 

^h! : ? 4 -^9i ') 

: i 9i»i±fr#-s-*5R-r. 

2 glj ') iiAffiS)!.- f- ><n&1r > ') ( :li, RETURN *#• 

(fi* 6 &v\ 

3 T > 9—'<)V • * T -^VflJ ») ON INTERVAL TfcT'fT 9 . 


-p°U ^ =y b,^\\ : 

**-7B#fUJlCTIME OUTtJti^J UTZH*'— 

10 CLSsON TIME GOSUB 110 
20 INPUT "PRESENT TIME": A* 

30 INPUT "LAST TIME";B$ 

40 TIME$=A<4» 

50 TIME B$ 

60 TIME ON 

70 LOCATE 0,3: PRINT TIMET 
80 GOTO 70 
90 TIME OFF 
100 END 

110 LOCATE 0,3: PRINT TIMET. 

120 PRINT "TIME OUT" 

130 BEEP1 

140 FOR 1=0 TO 200: NEXT 
150 BEEPO 
160 RETURN 90 

m 'n m 

PRESENT TIME? "15:01:00" 

LAST TIME? "15:02:00" 

15:02: 00 
TIME OUT 

Ready 


#as : TIME$, TIME ON 


7r> • • zr -+yy 


APL — 

FP1 1 — 

TRS i — 

SMC — 

CPM — 

MZ35 ON TIME, 11.50 GOSUB 
100 

• (1U#50 

«*). m 

t nLLt2-X& J %r (100) co-TT/l — -f- 
At. 

M223 — 

MZK — 

CBM — 

X 1 Hu — 

PC 8 — 

MB1 6 — 

TRSu — 

IBM55 — 

PC3 — 

PC100 • ON TIMER(n) GOSUB 

, ,L 

•nl&W'ZmLl —65535, Lfi^ 
n't 

Xctmt. 

IF 82 — 

3 

C180 — 

MSX • ON INTERVAL = Ml 

GOSUB M2 

• Ml /60**r tlz ? j 0 && % 

ill. M2 f±fr#^*’e&&. 

M243 — 

MZB — 

BUB — 


FM 8 • 

PSP — 

PC 88 • TIME ') U TIME 

$ 

N52 — 

PC 6 — 

MLT — 

HC 


+ -ICJ: ON KEY GOSUB, OFF KEY 


: 0 ON KEY CHR$&01, “ Z ” GOSUB 

I I 


*-com7B 


1000 , “ E ” 

i i 

• «HigL»T 


M ) is — -f- > cr> tlr ^ 

© OFF KEY 

I <D— t, **W 3 

ntztz, nifeL 

: 1C) T**— • a— K^'OlcT) (DBF) *— *<#$*i* 

£, t7';u- ■f->1000'vfflU*\ ifc, (U* — £ 7 T 
> • , 7-'<;u “E” t? (F) J &~7 )V — -f* 

(b) * — *>*& 5 £<Ofia*fcl±, 2810 i“C. 

(c) *— *&5£*C “ABC” <7)«fc ? Ml'S £, i X^ “A” 

feZtltiZ tlz&Z. 

(d) ON KEY 
&■ £> . 

(e) INPUT*(w 1 &ftik1&<7>£ £ f±, w^«ij») 4* 

(f) GOSUB 0 U, GOTO £t£< CL t 2> < 

£4i*BSgfr^#4*fc >' -v > -Ti" £ . 

(g) ON KEY £ — £, 

L£‘* — £flMt-£:v\ ON KEY £ $ Hi- 4^5?^ 

(h) fljffl#c7)-7“a ^ £ £, ( STOP ) 

(BRAKE ) fr-fcff-f £, BASIC ^-F^U'otUl. 

tztttx, 7 ?j*<T)hhm 
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7 r>*^--=r— ti-x 7 r^-^- 


y°U *7 ^7 A#lJ : “DBF 1 ” 4" — ^-W-rd: 1 TRAPPED ^ 

fT£-8M£U “z" *—■&&-?£, Z TRAPPED £ IT 
3 s Uffih'^" < 5 . 


10 Gn SUE "TRAP" 

20 FDR 1=1 TD 30 
30 PRINT I 
40 NEXT I 
50 GD TO 20 

60+" A": PRINT "l TRAPPED" 

70 GD SUE "TRAP" 

80 RETURN 

9Q*" B" : PRINT "Z TRAPPED" 

100 GD SUE "TRAP" 

110 STOP 
120 END 

130 : +: "TRAP" : on KEY CHR* &01,"Z" GO SUE "A'VB" 
140 RETURN 


m 'it m 

i 


4 

1 TRAPPED 

cr 

6 

Z TRAPPED 


#Bg : HELP ON, PEN ON, COM ON, STOP ON, TIME ON 
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7T> • • =f— ttx 7T^ • 3r- 


+ -UctS*yua* ON KEY gosub, off key 


APL — 


TRSi — 


cpm — 


M223 — 


MZK — 


CBM — 


PC 8 — 


TRSn — 


PC3 • 


IF 82 ® ON KEY GOSUB 
1000, 1100, 1200, 1300 

• mtl* ^ tmtXtbh *<, * 

3> • ^ — 1 —10 
T > 7 > 3 > • — <F) 

Sti-*. GOTO (i fig*. 

SrV'. 

o KEY ON £ Hff L T (i 

(D KEY OFF 

• tX'bb*\ KEY 
(n) OFFUJ:o-C***— nfcf*t£ 

~ t it'll). 

(D KEY ON 

• mmi**t&*')®X'm*)]lzl 

ck , d^>:fc-e*r 

**> 1 % Itli ba^ 

• KEY (n) ONfZ ioUa-n 

t*lt£tr#hlzX'£ h. 

® KEY STOP 

• oTL *— glJ9 

fcsa& ct'H a*, &S5& *>jw H u w* 
Ztltz* — JifB1t$n-Cv>-c, (D 


KEY (n) STOP Ciot, & 6 
“C# <2). 


U"<JU3 CD ON KEY ( 1 ) GOSUB 
1000 

• IF 82 £ [5] t T** & — 

oc7)^:*c — o<x>%—t 
£*&5£T ttztf 

<7)fHt/7fe<7)e:a £1"S. 

(D KEY ( 1 ) OFF 

• ( 1 ) 

mt 1F82 tmt. 

(D KEY ( 1 ) ON 
® KEY (1) STOP 
• dXD £ i> IF 8 2 tmt. 

(1) T'£$rv>. 


C180 

— 

M243 

- 

MZB 

- 

BUB 

• 1 F 82 tmt. 

FM 8 

• U"<;U3 £: IWJ L . 

PSP 

- 

PC 88 • IF 82 tmt. tit* L, 

• ;cO(^‘(HELP)^-, (STOP)* 
* — £81 »)&**— £ Lt«^ 
a^coON HELP GOSUB, HELP 
ON, ON STOP GOSUB, STOP 
ON 

N52 

- 

PC 6 

— 


MLT • IF 8 2 tlHjl:. 


HC 

- 

FP1 1 

• if 8 2 tmt. tzts l. -7 

T > 9 

x a > * * — ti 0 ~ 9 . i 

tz , * — iz ti L , WWtz L 

tz ») ilit'# fct'. 

SMC 

- 

MZ35 

• *sctmt. 

XI Hu 

• IF82 [o] L . 

MB1 6 

• p-<;u 3 tmt. tz tz' t , 

* — 1 — 14. 

IBM55 

• MB16 £|HJL. 

PC100 

• p-<;u 3 tmt. $:*> , 


MSX 

• if8 2 tmt. tzt* l. 

KEY ( 

n) ON, KEY (n) OFF, 

KEY ( 

n) STOP iZh'^X (n) ti 

W«&T'£ &*v\ 

• Z< 7 )tifr (STOP) *—£#]»)& 


£ tXi&l tzshco ON 

STOP 

GOSUB, STOPt&*#>&. 


h • pen on, pen off, pen 


: (D PEN ON 
(g) PEN OFF 
© PEN STOP 

: 7-r i- • siojx^s-rpN, 

## : i PEN ON -CfiJ ') &^£rFU1"&. C. <?>;*:£ £1*7 Lfcf£ -7 T h • 
'C'SrttMi’lf, ON PEN GOSUB -C*&5e$ f- > 

2 PEN OFF t, flj 0 ~ £*«-C£ -6. 

3 PEN STOP f, fiJ >) iX^£^±t*<£> C. £ 6. 

S^TUfcfc, h •'OZWL Xij, 

v^', PEN ON t-rtltf, B>JC7 T h • &WL X^tzzt 

4 7‘D/7A^TI^f:(i, PEN OFF 


7° □ ^ 


100 
1 10 
120 
130 
1 40 
150 
160 
170 
180 
1 90 
200 


A$lj ! 3iZ!n'f = y/±-C\ZZtf'*> 1000 3sr<D^&£-ftir-U 
-7U Z.<T>^u^-p 

T7-r h 

npcu "□" U5 " LPT0 • " CRT Jil<_ ilL&S<^r}ro *n <— 

rn,no S J ’ t ^ ^ (*lT« IS ON PEN 

COLUK /,1 GOSUB ^#HB) 

ON PEN GOSUB 280 

PEN ON 

CLS 

PRINT #5 


N=2 

PRINT #5, USING "####" ; 2 ; 3 ; 

FOR 1=5 TO 1000 STEP 2 
FOR J=3 TO SQRCI) STEP 2 
IF I MOD J =0 THEN 230 ELSE NEXT 


210 PRINT #5 , USING "####" ;I; 

220 n=N+ 1 : I F N>9 THEN N=0 : PRINT #5 

230 NEXT I 

240 PEN OFF 

250 CLOSE 

260 END 

270 ' LPEN ROUTINE 
280 ST=ST + 1 

290 IF ST= 1 THEN X=PEN( 1 ) : Y=PEN( 2) ELSE ST=0 
300 LINE < X , Y ) - < PEN < 1 ) , PEN ( 2 ) ) , " * " 

310 RETURN 


#gg : ON PEN GOSUB, PEN 
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STOP / 0 • 7f>, 'O • T7, 'O • Xh '^7 


APL 

— 

SMC — 

TRS i 

- 

MZ35 — 

CPM 

- 

XI Hu 

M223 

- 

MB1 6 • \s\ b. 

MZK 

- 

IBM55 — 

CBM 

- 

PC100 

PC 8 

- 

MSX 

TRS.. 

PC3 

_ 


IF 82 



is 



Cl 80 

- 


M243 

- 


MZB 

- 


BUB 

- 


FM 8 

— 


PSP 

- 


PC 88 

• ^££|HJL. 


N52 

- 


PC 6 

- 


MLT 

— 


HC 

- 


FP1 1 

- 
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V • -otcj: ON PEN GOSUB 


7£st : ON PEN GOSUB 70, 100 


*^w& . «fe»)jgfsr 

4#® : l PEN ON <r> t £ fflftlr i> . 

2 PEN^T^^n^iSjffiJiCOjnijr, ( 1 -- 9 ) T'^7 T F • 

^C7)x ij 

JfU^fr*-^2, Ji 0 Tia^A*soi^T\ Ztllzm 

< i, 2, 

3 Ji'JTIi, 1~9 


^°p^-7A^ij : ±T/n^^Arii2^^iooo^rco^r<^m-^L, -7 
U >^lc, l l , 4 7j-r'§>7n^'^Ar^'§>. CKDT/n VyU 
£-'£fr =z>y h-A:>r CRT .HCjiT.^^ 
*8< Z.t.t)'X^%> (7a^Af0Jl£ PEN ON £#HB). 

m ft m 

3£tfr(DT/U > y M*. 7j . 

2 3 5 7 II i3 1? 19 23 29 

31 37 41 43 47 53 59 41 47 71 

73 79 83 89 97 101 103 107 109 113 

127 131 137 139 149 151 157 143 147 173 

170 i;| 19 | }93 107 199 3. j 333 337 339 

233 239 241 251 257 243 249 271 277 281 

283 293 307 311 313 317 331 337 347 349 

353 359 347 373 379 383 389 397 401 409 

419 421 431 433 439 443 449 457 441 443 

447 479 487 491 499 503 509 521 523 541 

547 557 543 549 571 577 587 593 599 401 

407 413 417 419 431 441 443 447 453 459 

441 473 477 483 491 701 709 719 727 733 

739 743 751 757 741 749 773 787 797 809 

81 1 821 823 827 829 839 853 857 859 943 

877 881 883 887 907 911 919 429 937 941 

947 953 947 971 977 983 991 997 


#Jjg : PEN ON, PEN 


5-1" b • CRT m*. 



APL — 


TRSi 

- 

CPM 

— 

M223 

— 

MZK 

- 

CBM 

- 

PC8 

— 

TRSu 

- 

PC3 

- 

IF82 

• Kictffl t. 

U' 3 

• A £#!!«. 

Cl 80 

— 

M243 

- 

MZB 

- 

BUB 

— 

FM8 

- 

PSP 

— 

PC88 

• ff #^7 U y *< fv t f# z. -5> . 

N52 

- 

PC6 

- 

MLT 

- 

HC 

- 

FP1 1 

- 


7 \y ■ 'Ky • zs—y-y 


SMC • a Si &• L . #1 >) jx A t; J: 

flx»m PEN READ 


MZ35 — 


XI Hu — 


MB1 6 • — 7T^mf±£a 

C. y 

• &ft 2, 3 


1BM55 


PC100 


MSX i&ia&L. tzt* L, i/ 3 4 
-y 9 <r> b 'J if • ;K 9 >iz J: 
ON STRIG 

GOSUB, ON STRIG ON/OFF 

/stop t<hh. 


77/'^'/3^‘+-WSi KEY 77 >*.> 3; . 


: KEY Z, “^ 5 ^” 

;j$gf§{§ I 7 ° a ^' 7 Yr^ • 7 T > 7 > 3 > • ^r — 

! 1 KEY<7)*i^E(±, *-*-3-, ( , ), 

2 i/7 |> • -t — K £ H-^T, l0cO7°n '/•7~?~7* )V • n— K £ siLtij: 

1 ^^10£X\ 

3 M'^15^- £ X'<rr1C?-m* & J: t/ =? > ho — 

7xs> • ^r- i:7'D/7AtH. ^- — ;K— 

CHR$TOc£ ( + ) 

4 KEY LIST iot, ~7 r > ? '> h> * ^ — <7>l*r# fciiiffiit- 


^ ft #J : 


ii j 

3© 

4© 

5© 

Ok! 

ru 

Ok 

ke 

Ok 


’fe i::;!8Bi;i 
Uf¥ S: EU9 * : 

END 


[DIT* 


y 5.. 

m 


•LIST* 


i^JLLZ&C 


JMlfiC! 


#M : KEY LIST 
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APL 

— 

TRS i 

- 

CPM 

- 

M223 

• OPKEY £ m^'b. ^ — 

cowism, 3i^c-T-£X'AJrv£ 
b. 

MZK 

- 

CBM 

- 

PC8 


TRSn 

- 

PC3 

DFK 2, “?-f" 

• m±12-X'T-X\ 20^.mX^b. 

IF82 

• ^^CilHjb. 

\s 

1 • *%£ mt. 

C180 

• SFUNC 

M243 

• FUNC Zm^'b. 

MZB 

DEF KEY ( 1 ) = LIST (T) 

• T'7 

r >f ^ *7*;u • 7 r > 9 is 3 > • 

*- 

1 ic( LIST )-(CR)^- <7>$k 


nis£ >e$I. 

^ — CO'X'i-^L^^Ult 256 
i!)f ^ Uf -( * -7'a /7A^ 


BUB • 7t>^/3> * % — CT) 

Wi 8 M. 

♦ f LABELS Jf-CiotU- 

C7) r A J Vf 7^' hi ^ L -5) . 


FM 8 * 


PSP 

— 

PC 88 

• *-* £ |nj t . 

N 52 -Ml, 3 (±|W]t. 

■ K_h« 7 ) PF * 

$rttft(dr££>$:v'. 

PC 6 

• 8 -JC^£TXtJT£ b. 

MLT 


HC 


FP 1 1 

• ^-f^-(i: 0 ~ 9 . 

SMC DEF KEY 2 , “?t” 

• &± 16 £'T'£X* < nimX'£ b. 

MZ 35 

• PC 3 tfflt. 

XI Hu 

• DEF 

• ^ £ TnJ t . 

KEY ^[WJtf^vv^. 

MB 16 

• *** rnJL. 

IBM 55 

• 4 v££l»Jb. 

PCI 00 • t IhJ t . &£>*, ~ 7 r 

> 7 is 3 > • ^a— 

b b . 

MSX 
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7 7 - 3 > • * — < 75 |*]#ii 7 F KEY LIST 

: KEY LIST 

mm : 7t > 3 > • ^ — . 

4^^: 1 7 T > 7 > 3 > • <7)[*r#<7)— *[$ ( 6 3c 

L£^7KT*£ StV'**, Z<r>ZD~^> KU <fc 0 ^C7)-f 


^ fr 0>J : =£— • 

KEY LIST 


1 0 a d ’ 

save 

auto 

key 

go to 

print 

1 ist 

edit 

run 

cont 


Ok 


#JS : kby 5 ^« 3 > 


3 P— • U 7 S 


APL 


TRS, 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

— 

PC 8 

• tfSC^-W 

TRS„ 

— 

PC3 

— 

IF 82 

•*** 1 ^ 1 ;. 

U' 

• * 3 c tmt. 

C180 

- 

M243 

- 

MZB 

- 

BUB 

• * 3 c tmt. 

FM 8 


PSP * 

- 

PC 88 

• tmt. 

N52 

- 

PC 6 

- 

MLT 

• ^xtmt. 


hc *^^:<hlwJL. 

• KEYLLIST 7 o • T 

•J > 


FP1 1 • ^tmt. 


SMC 

• 4 =-* tmt. 

MZ35 

LIST DFK 

XIHu 

• tmt. 

• KLIST 

MB1 6 

• tmt. 

IBM55 

•ttt mt. 

PC100 

• * 3 c t fH] t . 

MSX 

• ** tmt. 
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7 7 >^'>3 > • *-<Z>F*3#0)-tr — p- K KSAVE, KLOAD 


• 4z-y, 3p- • D-K 


Mj£ : © KSAVE “ AFILE ” 
(g) KLOAD “ BPILE ” 


7 r J 7U& 


I ®7 r > 7 v 3 > • ^r — f" 
4 * 

(2)t"4 Z> 9 [:.&>& T 4 A' $&«&&«&, X ') 

: 1 KLOAD X'ffifcl-b -7 r >f /HJ, ftiz KSAVE — 

2 -7t>7->3 > 


^ h- #IJ : KEY 1 A, “INPUT”, KEY2^ “LOAD” £•£#£& UT, 
7 p -T “APILE” i; ^ 

>LIST 

10 DFK 1 7 " INPUT" 

20 DFK 2? "LOAD" 

30 KSAUE "AFILEsAl" 

40 END 
>RUN 
READY 


: KEY 7 ,>« a , 


APL — 

TRSi — 

CPM — 

M223 •CLI-CStfrCS*. 

opkey zmf -tb.mmt u ** 

7li E, l~8<n%c4-£ Kt)-fb £ 

b. 

MZK — 

CBM — 

PC8 — 

TRSn — 

PC3 • 2(S 

IF 82 — 

l *"<Jls3 

C 180 • r'4 * 

J--T >{ 'Jf-f FUNCTCJrot 
fTJbil, BASIC 
v >. 

•fU ?_h<7)-7 T >f /Hi, 

CFUNC AFILE . FK/3T'#H« 
T'£ h. 

M243 • M223 £ f!»J £ . 

MZB DEF KEY(n) = LIST~ 1 
• Wiilt, KLIST X'ffx. b . 

BUB — 

FM8 — 

PSP — 

PC88 — 


N52 


PC6 


MLT 


HC 


FP1 1 


SMC 


MZ35 


XI Hu 


MSX 


PC3 tfflt. 


MB1 6 
IBM55 


PC100 
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sleep 


: SLEEP 100 

'• r£^iti-&. 

*&. 

3 flueNMWii 0 ~16383f**>»£EH. 

4 jEffigic, aoTisgfij-e**. 


7°P J =7 AtflJ : 10#C<!:lc “BASIC” <Lm*3"t+-£>. 

10 OPEN "POUT” FOR OUTPUT AS FILE 1 MODE 3 
20 FOR I = 1 TO 3 

30 PRINT #1 , "BASIC" 

40 SLEEP 10 

50 NEXT I 

60 CLOSE 1 

70 END 


n ft m 

BASIC 

BASIC 

BASIC 


mm : time$ 


xu-y 


APL 

— 

TRSi 

- 

CPM 

- 

M223 


MZK 

- 

CBM 

- 

PC 8 

- 

TRS.i 

— 

PC3 

- 

IF 82 PAUSE 100 

• tits l, 

PAUSE ~$CO r )^ft r ¥X'{> (CAN) 


Cl 80 WAIT DELAY 100 

• mm** twit. 

WAIT TIME “11 : 22 : 33” 

• *tr 5 e L tztift iJ t T% 7 ° 0 r=> A<7) 

M243 


MZB 

— 

BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

— 


PC6 — 


MLT 

— 

HC 

- 

FP1 1 

- 

SMC 

PAUSE 100 

• 0 iu _t 255 iUT-e, -m 

'hh. 

MZ35 

WAIT X 

• x uttmm (#fao. if». 

XI Hu 

PAUSE 100 

• 0 —255 ( 1 4M£#j0.1f*O. 

MB1 6 

- 

IBM55 

- 

PC100 

-- 

MSX 

- 


«fMK« WAIT™ 


: WAIT 100 

Wtm : £*>*-*- Ytt'hnMi. 

*b. 

2 !&5el#WliaF*3U £ #fi, rtW&ai«rfig£:J^---(ERR 

71)^56^-r -2). 

3 fWKi$|iti<7)i|L&(i&. 

4 {&J|%l$f$(± 0 ~16383f>(7)^ffl. 

5 IN PUT 

6 WAIT, INPUT fLfcf&U, WAIT 0 TiI#fMJcO »J -fe ■•/ 

h 


10 OPEN "POUT” FOR OUTPUT AS FILE 1 MODE 3 

20 ON ERROR GOTO 100 

30 WAIT 10 

40 PRINT #1 , "STOP PROGRAM ? YES ( Y ) or NO(N) 

50 INPUT A$ 

60 WAIT 0 

70 IF A$ = "Y" THEN 

: PRINT #1 , " ##* PROGRAM STOP *** " 

: ELSE 

: GOTO 30 

80 CLOSE 1 

90 END 

100 IF ERR = 71 THEN 

: PRINT #1 , 

: RESUME 30 

NO END MARK 

m ft m 

STOP PROGRAM ? YES(Y) or NO(N) 

STOP PROGRAM ? YES ( Y ) or NO(N) 

STOP PROGRAM ? YES ( Y ) or NO(N) 

*** PROGRAM STOP #** 


#{% : TIME$, SLEEP 
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OlL'T'S 


APL 

— 

TRSi 

- 

CPM 

- 

M223 


MZK 

- 

CBM 

- 

PC 8 

- 

TRSn 

— 

PC3 

- 

IF 82 

- 

L"<;U3 INPUT WAIT 70 ; 100 
"INPUT A” ; Al, A2 

• mjii L «i)IWfiimi*JU k tjir* 
It til f' ffiSgLfeff#^ffUIW 
fflfrfPZ. 

• $IJPiiB^^J(il~255#^^iai. 

Cl 80 WAIT EVENT FUNKEY 

TIMEOUT 100 

• tuTH L 7 7 > 7 

X 3 > • *— COAtlfr&lttltf, 

• m l&B# r4J It 0 ~ 86400#<7> $M . 

• mmmziz -hh : mm : ss”<nm 

*C t ftT/H'T hZ£ frX $ 
h. 

M243 

* *-££|nJ t. 

MZB 

~ 

BUB 

~ 

FM 8 

— 


PSP — 


PC88 INPUT WAIT 100, 
"INPUT A” ; Al, A2 

• z<7VX<r>m~-?)Vj- • xf- h / 

> h t mm 

£ £cr> 

tz £ Zliknft^m itmh. 

• o.i #. 


N52 


PC6 


MLT — 


HC 


FP1 1 


SMC — 


MZ35 


XI Hu 


MB1 6 


IBM55 


PC100 — 


MSX — 
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A* x -*<©!£« WAIT 


: WAIT 1, 2, 3 

ir r 

4$^ : i -m^LAiA^iK-h^h' , h • 

£ t"/ o 7 ' -7 Mr $ ti 6 . 

2 i &a^r&-e;t-:- b 

3 b frhi%&Z.A,tST'— 9 £ (3&g^*il&) t<r> 
XOR <7)$i%zt ( 2 #SS04I$C) <7) AND bit, 

0 £ ^ ii" h T-I^rK- h •) &T. 

*£^'0 

4 3 l(± 0 

5 WAIT J: 0 &|&/u-7'{c$:o fc ££U, 'J-fe ••/ h L 

frt+iildrSrkfcV'. 


7°P^-^A0IJ ! -^>T — CDl^*o6^-A7j U, A7jd:5l^^-tt^5L^ 


10 PRINT "PLEASE PUSH TEN-KEY <l-6>" 
20 WAIT 0,126,255 
30 INPUT XX 
40 YX=RND< 1 >*6+1 

50 IF XX=YX THEN PRINT "ATARI" : END 
ELSE PRINT " HAZURE" 

60 GOTO 10 

m ?t m 

PLEASE PUSH TEN-KEV <l-6> 

? 5 

HA 7 URE 

PLEASE PUSH TEN-KEV (1-6) 

? 2 

Nature 

PLEASE PUSH TEN-KEV (1-6) 

? 3 

ATARI 

#BS : IN, OUT. SLEEP 


OZ L-fh 


APL • *1C£ fflt. 


TRSi 

- 

CPM 


M223 

- 

MZK 

- 

CBM 


PC 8 

• 4^t# hh 

TRSn 

- 

PC3 

- 

IF 82 • 

>£(i, /J'«c®tiEHfr'lLA$n&. 
'F«c®«Elt£A§ix*. 

• WAIT^<7)g!Tr4 , 'Ct (CAN) A- 

Is^JU 3 

- 

Cl 80 

- 

M243 

- 

MZB 

- 

BUB 

- 

FM 8 

- 

PSP WAIT #1, &H02, &H03 

PC 88 

• *-* tmt. 

N52 

- 

PC 6 

_ 


MLT 

• |HJL. 

HC 

- 

FP11 

- 

SMC 

- 

MZ35 

- 

XI Hu 

• ** t Wi t . 

MB1 6 

• 4=-* tw. It.. 

IBM55 

• «£IhJI:. fc*5L. # 

f&5 

ti BRAKE T't J:v\ 

PC100 

• tt£ mt. 

MSX 

• «i:(5lL. 


7°'J KOfeti/Tv LPOS 


: LPOS (A) 

: nj>;-A.y7r^lE^7 K<^jft$£#;£.6fiC&. 

: i ^mtn-xhh. 


y°p y ^ a^ij : (?) oafe^©««fita*4-^.*. 

10 FOR 1=0 TO 30 STEP 5 
20 LPRINT STRING* ( I, "?") ? 

30 LI =LP0S (34) 

40 LPRINT " LP0S=" ? LI 
50 NEXT I 
60 END 


m ft m 


LP0S= 0 
????? LPOS= 5 
?????????? LP0S= 10 

LPOS= 15 

LP0S= 20 

LPOS- 25 

?????????????????????????????? LPOS* 30 


#83 : pos 


x;u • 7t\2/2/s> 


APL 

— 

TRSi 

- 

CPM 

• IhJL. 

M223 POS (M) 
•Mti, 

MZK 

— 

CBM 

— 

PC 8 


TRSn 

- 

PC3 

— 

IF 82 


l POS (M) 

open $nfcr'j > y<n 

tK 

C180 -I&a&'L. LPOSti$S#E 

M243 

• M223 ilWJL. 

MZB 

- 

BUB 


FM 8 

• u-<;u 3 £ 11] b. 

PSP 

— 

PC 88 


N52 

— 

PC 6 



MLT • t. 


HC 

• u *^;U 3 tR t. 

FP1 1 

- 

SMC 

— 

MZ35 

- 

XI Hu 


mbi 6 • $\m inj > 

IBM55 • tmiX') 

1 t>'io 3 &X<X>m$k. 

PC100 

• ^35ci:[5jL. 

MSX 
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y page 

Brt : PAGE 

: ro a • >J x h ^-r 'j > -?*) > fcoX'* 

* — *>'co7feaMt T-ttj&ty *-?*>. 

: 1 7 , 'J>^i:U7o/7A* UF?:, ^* 1 " < 1 "& £ 

it 

2 afcK^- K (&H0C) 

ct V\ 

LPRINT CHR $ (&H0C); 


^ *r tW : PAGE left* UT<&^. 

1 s\—^n 

10 FOR I = 1 TO 100 

20 PRINT I , I* I , SQR(I) 

30 PAGE 

2 

40 NEXT I 

50 PAGE 

3 a;— ^‘g 

60 END 


#J!B : 


/K-S? 


APL — 

SMC — 

TRS i — 

MZ35 LIST PRINT “El” 
• El ti 9 4 \ 'K 

CPM — 

XI Hu — 

M223 • 

MB16 — 

MZK — 

IBM55 — 

CBM — 

PC100 • * 7 7 9 •T' < 4 *>(-7 

')>?&£*) (C =J > ho — suJc'p 

9ij^^^^4h-ioctl, %<r>m m 

<nm& £ It IOCTL $ tfh h . 

PC 8 — 

TRS ii — 

PC3 — 

MSX — 

IF 82 — 


u"<;u 3 — 

C 180 — 

M243 

MZB — 

BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 

HC — 

FP1 1 — 


s<y'j\s • * BUBR, BUBVV 


l CD BUBR M, N, E$ 

(g) BUBW M, N, E$ 

Slgg : '<~T)V • / -t 'J C7) !J — K, 7 T h 9 . 

iKp^a : 1 

2 Nfi^— ^ 2) #-^T% 1 ^^>1024cOfi 3 lT'^5ti-&. 

3 E$liA^^77rt^'), 6 v^±E9iJ«T4t 

aE"^ h . 

4 T 7-feX 3) c0^jigi4^MSn, / T >• X -t ') X-U & ») 

Mi *7 T 4 

^ ; nji 7 f itfi#, y,m ty.) n muztizmmnz}:. 

y -t U *••&]') ax ti'), -/o A£.tii|tfi)-fe 9 X 3 >l:E^t & 

Ztih ±i£ir#M^ WM. - 7 7-bxtn •*»: £ 

3 ) 7 ?*x *). ^:i:f-- 

5:t. 


/n^7 A^lj : 0#ZL-'7h, %5 1 ^ — 57 lc^ — ?K— KctUAjj U 7c 

10 INPUT Elf- 
20 BUBW 0,1, Elf 
30 BUBR 0,1, E2f 
40 PRINT E2f 
50 END 

m ft m 

? ABCDEFG 

ABCDEFG 

Ready 


#83 : 
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jxzn i/ • u-k, ivy )\j • ^-rs 


APL — 


TRSi — 


CPM 


M223 — 


MZK — 


CBM — 


PC8 


TRSn — 


PC3 


IF82 — 


MLT 


HC 


FP1 1 — 


SMC — 


MZ35 — 
XI Hu 


MB1 6 


IBM55 — 


PC100 — 


MSX — 


Jls 3 — 


Cl 80 — 


M243 — 


MZB — 


BUB — 


FM8 • 


PSP — 


PC88 — 


N 52 tzK ru mm 

<nmtt IT, '< y 9T V 7 • y 
• BUMI $ is cfc t/f BUMO $ Ci') 
t')i LTtiffltn. 


PC6 
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w-um. SQR 

: SQR ( A ) 

iffftfc : 1 A litWt'T^o'C(±4-b4-v\ 
2 fiic # (i # m& Tlf ioft6. 


yp^'^A^ij : sqr (x) $-, x=i^6x=io^r^^> 

10 FOR 1=1 TO 10 

20 LPRINT " SQR ( " ’ I ? " ) = " > SQR ( I ) 

30 NEXT I 
40 END 


m 'n m 


SQR ( 

1 

) = 

1 

SQR ( 

2 

) = 

1 . 41421 

SQR ( 

3 

) = 

1 . 73205 

SQR ( 

4 

) = 

2 

SQR ( 

5 

) = 

2.23607 

SQR ( 

6 

) = 

2. 44949 

SQR ( 

7 

) = 

2.64575 

SQR ( 

S 

) = 

2. 82843 

SQR ( 

9 

) = 

3 

SQR ( 

10 ) = 

3. 16228 


#83 : 


• ;u— h 


APL ■ *-JCt IsJt. 
W(±, A^O.5 <£ ») 


TRSj 

■tttfsik. 

CPM 

•ttt ItJ t . 

M223 

• «C£|WJ t. 

MZK 


CBM 


PC8 


TRS„ 

* t. 


PC3 tzK L, A 

•x 3-CHt/<G5*i*v\ 


IF82 •*-*:£ \s\t. tzt* U A 

*<f£*&J£3&$r M&jm/g att&h 
nz. 

L^^<JU3 


C180 

• ** t |H| t . 

M243 


MZB 

• *sctmt. 

BUB 

■ 

FM8 

mt. 

PSP 

■ *SC b PH t . 

PC88 

• mt. 

N52 



PC6 • ^ifWlb. 


MLT • ^SCt [s] t. 


HC 


fpi 1 • 51 

£ X’tfc&h bill). 

SMC 


MZ35 

• PC3 tfflt. 

XI Hu 

• ttt mt. 

MB1 6 


IBM55 


PC100 • £ [h] t . 

• frtlZ. 

MSX 

• pcioo t mt. 


ELftMWi SIN, COS, TAN 


mm 


m =35. 
/rj nn 


SIN ( A ) , COS ( A ) , TAN ( A ) 

A(0#«7y-Tvt LfciftA, 

1 ?!}-( T"ff htl&. 

2 r ^j -c$r< 

3 TAN ( A ) tt-^'7 D- n 
ik1-&. 

..^ p _ 4 1k\tL<F>$k-km.*: mt Z> z t £ : t ^ . 


7°P^^A0lJ :SIN(0), SIN(^), SIN(f), SIN tc) 
Z>. 

10 PA I =3 .141 59 
20 FOR 1=0 TO 3 
30 A1=PAI/4*I 
40 A 2= S I N ( A 1 > 

50 LPRINT M SIN< " 5 A1 ; " > = " ;A2 
60 NEXT I 
70 END 


m *t m 

SI N< 0 >= 0 

S I N ( .785393 )= .707106 

S I N < 1.5708 )= 1 
9 1 N < 2.35619 )= .707108 


#flft ! ATN 


+t-r>, D+t-r> 
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APL 

• *xt Wit. 

TRSi 

• **:*l mt. 

CPM 

b "To 

• — /<— 7 a— £*£b X 

M223 


MZK 

• **£|5jb. 

CBM 

• **£1*1 b. 

PC 8 


TRSu 

• isJt. 

PC3 -*-Xt Pit. fztzL, $1 

3&A<7)#12:li, j£, 7iST>CO£* 
■tb 

fUlc DEG £ tilt RAD 

Ltfc < ). A *<&*&&*>%''' 

£# •? ^ y =7 -cffltf 

IF 82 -A *0 

£ LtlNU. 

• 5f— /<7 0 — tt W -/ -fe — 
x £ t4i -hirh tzi t tr% ^ 0 / 7 /■> 

lx 

• **£lHJb. 

C180 

• *;fc£|tjb. 

M243 

• * * fc [5] b . 

MZB 

• **fc-Rlb. 

BUB 

• ** t m b . 

FM 8 


PSP 

• « t HJ b . 


PC88 * t\s]t. 


N52 


PC6 

• «:i[H]b. 

MLT 


3% 

-f 6. 


HC 

• «c£I3b. 

FP1 1 

• ATN <7)IK£#M. 

• *ft*^*£ 3KRJJW 

•IIMbT, 

HCS, 

HTN & 

SMC 

• *:££iH]b. 

MZ35 

• PC3 il5]b. 

XI Hu 

• ***: IW] b. 

RAD (10) 

• 


MB1 6 

• ^*ti?lb. 

IBM55 

• *:££l5]b. fc*5L. ^ 

f!ft 3fi&V'. 

PC100 

• ^ilH]b. 


MSX 

• PC100 ^ IaJ b. 
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ATN 

l ATN ( A ) 

Lt:&r&, H&HB& iCEF.^cOft & |13 

*fc. 

2 


^ n ^ A^lJ : TAN ( 0) = -0.25 te 0 & — -&<L 0 ^-g- CD 

mmr&v>z>. 

10 A1 = - . 25 
20 A2=ATNCA1 > 

30 LPRINT "ATN< " ; A 1 ; " > = " ;A2 
40 END 


m & m 

ATN < - . 25 >=“.24497? 


: TAN, SIN, COS 


apl . *** mt. 


TRSi 


CPM 

• *-*: t mt. 

M223 

• t isj t . 

MZK 

• *-%£ mt. 

CBM 

• t\n)t. 

PC8 

• **#*. 

TRSn 

• ** iwj b . 


PC3 • DEG £ tzli RAD TfcT'Jg 

i\ i 

t> "/ 

• a£jE4K ASN *s J: C/it^^ACS b 

bh. 


if8 2 • a i* & mwm 

£ ixmhtLZ. 

1"<JU 3 


C180 

• *-i:£fflt. 

M243 


MZB 

■ 'MiBIt. 

BUB 

•*-X£fflt. 

FM8 

• ** £ mi. 

PSP 

■ 

PC88 



N52 mt. 


PC6 

— 

MLT 


HC 

•tt£mt 

FP1 1 

• 9l«fc<soSaU3 J; 'JflgMftjg* 

■C3 Zth^tlZ. 

• i] "/ =J(iWw&T'^ &*v>. 

• #{£(i ANGLE tlcj: 

£ (*«a:x^i±*uiflrte$n-c 

v^* ). 

DEG (&), RAD (7f 

4 T> 
ij'bh 

), GRAD( /77'-( T > ) 

■ aSIE^ ASN & J: ACS 

bhh 


• $ Me, i&RftttMgfc AHS, 

AHC, 

AHT t #>&. 

SMC 


MZ35 

• PC3 £igb. 

XIHu 


MB1 6 

• «c>pgb. 

IBM55 

'*■*.£ isj b . 

PC100 

• «trs]b. 


MSX 

• pcioo £mt. 


nm*:- ANGLE __ 

: ANGLE 1 

1 ftl£*li5eli0a*fc 2T, Oli DEG(I^), 1 (i RAD ( 
>), 2 li GRAD (/7f>( T>) *£'& & . 

g&(±-*2J*)*£-c^n&. 

2 tgi® ON NM± ANGLEO (~§£5 e£ tlo . 


■7°n^^A#J : SIN (30°) 
10 ANGLE 0 
20 PRINT SIN (30) ; 

30 ANGLE 1 
40 PRINT SINCPI/6); 
50 ANGLE 2 
60 PRINT SIN (100/3) 
70 END 

m ff m 

0 .5 0 . 5 0 . 5 


0m : 


?*' Nil 
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7>y<7JU 


APL 

— 

TRSi 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRSn 

- 

PC3 

• MZ35 tfflt. 

IF 82 

- 


— 

C180 

- 

M243 

— 

MZB 

- 

BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

- 

N52 

- 

PC 6 

— 

MLT 

- 

HC 

- 

FP1 1 

• mc&m. 


SMC — 


MZ35 • DEG -CJg, RAD t*7f 
-i T > <7) lu ae A* “T nisT'^ -2> . 

• 'E?r& ON 0#(i DEG 


XI Hu 


MB1 6 


IBM55 


PC100 — 


MSX — 
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m&mm. exp 

: EXP ( A ) 

y&M : i A*U*«t4:**4IHa. 

Mk : 1 a iz itigmmm it t it $ n & t><, & . 


n ^’7A^IJ : e*£-x = l, 2, 3, 4, 5(7) J E-n^niCT)^T^<^'S. 


10 

FOR 1= 1 

TO 5 

20 

A=EXP( I > 


30 

LPRINT " 

EXP< " ; I ; " 

40 

NEXT I 


50 

END 



n 'if m 
EXP( 

1 

) = 

2.71828 

EXP< 

2 

> = 

7.38908 

EXP< 

3 

> = 

20.0855 

EXP ( 

4 

) = 

54.5982 

EXP< 

5 

) = 

148.413 


#HS : LOG 




APL 


TRSi 

frxtm b. 

CPM • fztz u 

A ^ 87. 3365 £ m tz£%l ttl (i' £ 

to 

M223 

*-* £ IhJ b . 

MZK 


cbm • tzK L, 

A ^ 88.02969191 £i»fc $ 
l±'4‘ ^ &‘V'. 

PC8 

A < 87. 

to &■ V ' . 

4^£#M. bb'L, 

3366 £»«*:£ frltflUT* 

TRSii 

***ISJb. 

PC3 

^*bfH]b. A 


£#■?«£% * 
=» tit 1 'J&fKi & v ' . 


IF82 • 4b££Hf|b. fzt* L, 

A ^ 88.0297 %mti £ 



C180 


M243 

• 4^ t (Hj b . 

MZB 

• «blslb. 

BUB 

• A ^ 88.0297. 

FM8 

• A < 88.0297. 


PSP -^tlSJU. 


PC88 

• A ^ 87.33655. 

N52 

- «tNt. 

PC6 


MLT 

over 

b. 

•iF8 2 brHjb. tztf b, 

flow b A: ^ £ fi A. 

HC • A ^ 88. 02969 £$]*:$ 

^nta£Kz to 

FP1 1 • A < 230. £ fz, A *<fg 

8. 

SMC 

ffi fz 

• A ^ 147.36544595161 £ 

MZ35 

• PC3 t |h] b . 

XI Hu 

• HC £[SJb. 

MB1 6 

• A <88.02968. 

IBM55 

• HC tftt. 

pcioo •■&-%£ (Kjb. 

MSX 

• PC100 £|WJb. 


StfflfcHBt LOGio 


Kit : LOG ( A ) 

ffitm : a *«&«•#*> 4 m». 

<&m : i A^milETZ: < Xli&bKc''\ 

2 LOG ( A )/LOG (10) Z^&lhhtlh . 


y°n *? =7 /xffl : 10 ioo $zX<D&mtttk(Di&&-#LV)z>. 


10 



OPEN 

"POUT" FOR OUTPUT 

AS 

FILE 1 MODE 

20 



FOR I 

= 

10 TO 100 

STEP 

10 



30 




LET 

A 

= LOG ( I ) 





40 




PRINT 

#1 , "LOGC 

" ; I 

’ 

") = 

" ; A 

50 



NEXT 

I 






60 



CLOSE 

1 






70 



END 








m 

fr- 

0J 









m 

n 

m 









m 

fr- 

m 










LOG ( 

10 

) = 

1 

LOGC 

60 

) = 

1.77815 



LOG ( 

20 

) = 

1.30103 

LOGC 

70 

) = 

1.8451 



LOG ( 

30 

) = 

1.47712 

LOGC 

80 

) = 

1.90309 



LOG ( 

40 

) = 

1.60206 

LOGC 

90 

) = 

1.95424 



LOG ( 

50 

) = 

1.69897 

LOGC 

100 ) = 

2 


#M : LQGe 
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APL 


TRSi 

- 

CPM 

- 

M223 


MZK 

• « £ ft t . 

CBM 

- 

PC 8 

- 

TRSn 

- 

PC3 

• tzt* l, a 



t) -y 


IF 82 

- 

3 — 

C180 

— 

M243 


MZB 


BUB 

- 

FM 8 

PSP 

- 

PC 88 

N52 

- 

PC 6 

— 

MLT 

— 


nfivXL* 


HC 

- 

FP1 1 

tlh. 

LGT (A) 

SMC 

• £ [Hj t . 

MZ35 

• PC3 £ IH] t. 

XI Hu 

- 

MB1 6 

- 

IBM55 

- 

PC100 

MSX 

- 
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LOGe 

Kit : LOG ( A ) 

mm : a <n a «s*-m s- **■> i> w». 

: i 


^ n ^ >^#1] * loge x £- X — 1, 2, 3, 4, 5 (D^tl^niC-D^T^V) 
Z>. 


10 FOR 1=1 TO 5 
20 A=LOG ( I ) 

30 L PRINT "LOG ( " " I ■ " ) = " ; A 
40 NEXT I 
50 END 


m ft m 


LOG ( 
LOG ( 
LOG ( 
LOG ( 
LOG ( 


. LOG 10 


1 )= 0 

2 ) = .693147 

3 ) = 1 . 0986 1 

4 ) = 1 . 38629 

5 )= 1.60944 


Uft'JXU 


APL 


TRSi 

• ISIL. 

CPM 


M223 

LN (A) 

• m&it 

** tmt. 

MZK 

• M223 tmt. 

CBM 

• *ictmt. 

PC8 


TRSn 

• *-*:£ mt. 

PC3 

• M223 ilSJt. fc£TL, A 





1F82 





C180 

• **£ mt. 

M243 

• M223 £ |h] L . 

MZB 

• M223 tmt. 

BUB 

• 4: 35c tmt. 

FM8 

• «£[HJ t. 

PSP 

• «<>:InJL:. 

PC88 

• 4^ tmt. 

N52 

•tttmt. 

PC6 

• tttmt. 


MLT •*■*:£ mt. 


HC 

*sctmt. 

FP1 1 • 

SMC 

M223 i[5jb. 

MZ35 

PC3 ^ IWJ L:. 

XI Hu 

4^-xtmt. 

MB1 6 

^xtmt. 

IBM55 • 

mt. 

PC100 • 

• mm*® 

tttmt. 

MSX 

pcioo tmt. 


»>J K» 


ABS 


: ABS ( A ) 


y’ p *f =? AtfiJ : ai ro*e*nt£- A2 aaa r«. 

10 A1 =-1.234 
0 A2=ABS(A1> 

0 LF'RINT "A1 = ";A1» ,, A2="SA2 
40 END 


m n m 

A 1=- 1.234 A2- 1.234 
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IPTTVUzl— h 


APL 

* £ £ fnj b . 

TRS i • -1.7X 10 38 ^A^1.7X 

10 38 

CPM 

*£i:It]b. 

M223 

ft. b&z 

ABS# (C#) 

MZK 

4- * t It] b . 

CBM 

4^£lt]b. 

PC 8 


TRSn 

4 ^ t r«j t . 

PC3 * A 7 ¥ ft ft-**? £ b v ' 

^ *5 ±§ #'7 3t|tf -fit* { i £ 

V*. 

IF 82 

** > it] b . 

U"'v./U3 

*■*: £ It] b . 

C180 

**£|t]b. 

M243 

M223 tffl b. 

MZB 

mctmt. 

BUB 

** £ I n] t . 

FM 8 


PSP 


PC 88 

4: 3JC £ It] t . 

N52 

*-X£mt. 

PC 6 

-**£ ItJb. 


MLT • t\5]t. 


HC 

• «: £ It] b . 

FP1 1 • 3I&C0JSKJ: 

£ tl %> . 

SMC 

• * 2 : * El b . 

MZ35 

• PC3 t |tj b . 

XIHu 

- 

MB1 6 

3£<7> 
/L - 2 > , 

•mc£mt. tzt* b, «n 
9I«5c<7)3?t- J: ') jftffift £ “Cff 

IBM55 

• « £ Itl b . 

PC100 • 4^ t It] t . 

• m ft- It \% -efr b ii 2> . 

MSX 

• pcioo £ it] b. 
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mik MOD 


teA : 10 MOD 3 

: # 13 ? (# 1 ») ) cr>ttW-£i-6. \-M<nmx-lZ 1 tt£h ( 10 ^ 

3 = 3 3?‘) 1 ). 

2 mmz^^xmmzv) n &x iotiz . 

3 X MOD Y=X-Y* ( X¥Y ) X'iXmX’Z 6. 


-fn 9 -7 ij : sescr** 10 -7-4 = 2 ^ u 


10 

M 1 = 1 0 


20 

M2=4 


30 

N1 =M1 

¥ M2 

40 

N2-M1 

MOD M2 

50 

LPRINT 

"SYO=" ?N1 

60 

LPRINT 

"AMARI=" “ N2 

70 

END 


m 

fr m 



SY 0= 2 
AMARI= 2 


#flg : r- (-^CD l ) 


ts/zin 


APL 

— 

TRS i 

- 

CPM 


M223 

- 

MZK 

- 

CBM 

- 

PC 8 


TRS„ 

• CPM il5]b. 

PC3 • A = MOD (10, 3) <X>Z 

*5 t~£k1iii Z o X'ttn . 

• ±M<r>m Xli A iz l AZtiZ. 

IF 82 ■ IhJC. fctf'L, & 

Jbti£> mmz KZtlk. 

\s "<^3 

• * A: i HJ b . 

C180 • PC3 

tztl L, REMBf|*fc& 
W«co»$ £4*6. 

• NMk<7>Mtelt#z<r>tte 0. 

MOD (3.2, 2) = 1.2 
MOD (X, Y) = X-Y * INT 
(X/Y) 

REM (X, Y) = X — Y*IP 
(X/Y) 

M243 

- 

MZB 

- 

BUB 

• *£>lHjb. 

FM 8 

• IF 82 tW. lb. 

PSP 

— 


PC 88 

• IF 82 tmt. 

N52 

• CPM imb. 

PC 6 

MLT 

tfc-e* 

-CJ:^ 

• A MOD B X\ A lit*M 
< Xli^'t ti*v\ B f±'H& 

HC 

— 

FP1 1 

mm. 

• * , /, ¥t 

SMC 

• IF 82 2: flj b. 

MZ35 

• PC3 2: HJ b . 

X 1 Hu 

• « 2 :llJb. 

MB1 6 • MOD (V ffi&lz £ 

*>(+&. 

IBM55 

• CPM 2:Hlb. 

PC100 

• cpm tmt. 

MSX 

• llJb. 


SGN 


Tfcifc : SGN ( A ) 

: 1 OcO£ £ 0, IE<7)£ § 1 (c£r£. 

2 ON~GOTO~*^#ffl-t^> £MfUT'*>6. 


^□^7 A^iJ : icDfitiCcfc^-c, 

10 FOR I=— 3 TO 3 

20 ON SGN ( I ) +2 GOTO 30.-50,70 


30 

LPRINT * 

'1 = ' 

I , "-1 

40 

GOTO 90 



50 

LPRINT ’ 

'1 = ' 

'? I, "0" 

60 

GOTO 90 



70 

LPRINT ' 

•1 = ' 

' ; I , " l " 

80 

GOTO 90 



90 

NEXT I 




100 END 
* ft m 


I=— 3 

-1 

I=— 2 

-1 

i=-i 

-1 

1= 0 

0 

1= 1 

1 

1= 2 

1 

1= 3 

1 
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tro 


APL 


TRS i 


CPM 

• tttmt. 

M223 

SGN# 

h. 

• tzt' L, 

(C#) 

MZK 

• *-*:t mt. 

CBM 

• *-£t mt. 

PC 8 


TRSn 

• mt. 

PC3 

• *Sctmt. tzK TL, A 


jW-S-S: 1¥fc*V'*fctt5£*fc, &tt 


IF 82 

• *sct mt. 

\s 

• *-xtmt. 

C180 

• *-&£ mt. 

M243 

• M223 t mt. 

MZB 

• ** t in t . 

BUB 


FM 8 

• mt. 

PSP 

•*-*:£ mt. 

PC 88 

■*-xtmt. 

N52 

■ IS) t. 


PC 6 • |WJ L. 


MLT -**:2:|Hjb. 


HC 

• **imt. 

FP1 1 


tZ^ab^tlh. 

SMC 

• |H]L, 

MZ35 


XI Hu 


MB1 6 


IBM55 

• - 4 :* tint. 

PCI 00 

• tttmt. 

MSX 

• «C£H]b. 
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tUsb ROUND 


Mat : ROUND ( Al, A2 ) 

I I 

: 'H& ai a-^ A2 -ei&gs tifcwmffc&z t s. BmaLAii A2 
+ 1 tt/z g Srlf? . 

I 1 A2 li &. 

2 A 2 t, o t^EMxi, m 

Wz&Z. 

3 ^Sb*tfc»£*&5e-t-& t 

4 A2 = 0<0££, INT (Al+0.5) T'TCffl “C£S. 

A2 = l(7)illi, INT (Al *10 + 0.5)/10. 

A2>lOi:§ 


37° □ ^'-7 A1£IJ ! 1 P3®^«-'h«c»E9fi*Eg»i.AUT, 

2 la^Eg^iAUT^^ic-r^. 

10 A=3- 141592 
20 A1=R0UND(A,3) 

30 A2=R0UND(A) 

40 PRINT ” ROUND (3.141 592 » 3 ) = " ; A 1 
50 PRINT "R0UNDC3. 141592)=" ;A2 
60 END 


m 'n fl»J 

R0UNDC3. 141592,3)= 3.142 
ROUND (3. 141592)= 3 


#fiS : NORMAL, FIXED, FLOAT 


T7 0>K 


APL — 

FP1 1 ROUND (Al, A2) 

•*&5£I±3I ft, 

• 10<7) A2 
A. 

• 3l*fc*>Sl£ J: T^a6 

htlZ>. 

TRSi — 

CPM — 

M223 — 

SMC — 

MZK — 

MZ35 • PC3 t Ir] L. 

CBM — 

XI Hu — 

PC 8 — 

MB1 6 — 

TRSn — 

IBM55 — 

PC3 • ^kfisCT) t t*, FIXED m. 

n, FLOAT m. n <7) J: n |:Lt^ 
ae T' I* h . 

PC100 — 

MSX — 

IF 82 — 


Xs'Ol' 3 — 

Cl 80 • 4^3fc#w«. 

M243 — 

MZB — 

BUB — 

FM 8 — 

PSP — 

PC 88 — 

N52 — 

PC 6 — 

MLT — 

HC — 


y ffl L FRAC 


Bit : PRAC ( A ) 

$|fii : 0 thl-. 

: i /j.»»£jr») ib-t < 

& . 

2 FRAC (A) = A — FIX (A) & . 


m 'fr m : 5-x<bntc.ik 1.234 <d'M&£b 0.234 &nvj m-r. 

PRINT FRAC< 1.234) 

.234 

OK 


#flg : 


291 




APL 

— 

TRS 1 

- 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRS n 

- 

PC3 

- 

IF 82 

- 

\y ^Jl*3 

- 

C180 

- 

M243 

- 

MZB 

- 

BUB 

- 

FM 8 

- 

PSP 

- 

PC 88 

- 

N52 

- 

PC 6 

- 

MLT 

- 

HC 

- 

FP1 1 



SMC 


MZ35 


XI Hu 


MB1 6 


IBM55 


PC100 


MSX 
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H'MiS MAX, MIN 


: ® MAX ( Al, A2 ) © MIN ( Al, A2 ) 

■ Al i A2 i K It 

4#® : 1 IF < T Will £ fzli'hZ h <7>TiE 

n X'hi>. 

2 MAX (Al, A2 ) = (A 1 +A2 +ABS (Al-A2))/2 
MIN (Al, A2 ) = (A 1 +A2 — ABS (Al-A2))/2 
X'ttm X'$h. tfzit, 

MAX (Al , A 2 ) = — A 1 * (Al >=A2 ) 

— A 2 * ( A 1 < A 2 ) 

MIN (Al, A 2 ) = — A 1 * (A1<=A2) 

— A 2 * (A 1 > A 2 ) 


~7 □ ? i * 1 #>J : i3.4 1. 14.5 

10 A=MAX(13.4,14.5) 

20 print 

30 END 


mum 
MAX= 14.5 


mm : 






APL — 

z wtht h nm<r)m\m 

TRS i — 

siyic — 

CPM — 

mz35 • mmtti. mmtx, & 
mw\ + x®± ( 'h ) m< Ao*ct> 
MAXS 

(MINS) 

M223 — 

MZK — 

CBM — 

XIHu — 

PC8 — 

MB1 6 — 

TRSn — 

IBM55 — 

PC3 — 

PC100 — 

IF82 — 

MSX — . 

— 


Cl 80 • ^3 Jc#hb. 

M243 — 

MZB — 

BUB — 

FM8 — 

PSP — 

PC88 — 

N52 — 

PC6 — 

MLT — 

HC — 

fpi 1 • mmtx, m 


RND 


: RND ( A ) 

$#*!&: 1 A*«ftw»-&-liAO«[Ut)eJRl,fc*f*5iJwSL#tSr5feSHj: ') »4. 

1-s. 

2 A*'on##a, — o«ric«4Ltea*s-»ii-4. 

3 ia#l±iE^S$-^l&i trttv>, |BJ#9J«a»£l«U*:S££S-tt- 

4 Y — ; aU — is 3 > CD £ !*■ 4&H‘C& h . 


-? □ a#iJ : 

10 FOR 1=1 TO 5 
20 LPRINT RND ( 1 ) 
30 NEXT I 
40 END 


m 'n m 

. 763171 
.981958 
. 803397 
. 993264 
. 1 54362 


#0S ; RANDOMIZE 
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-y’yYL* 


APL • tzti L, A 

YJEcDt £#r^?iJ<7)SU&£, Ocd 
t £— oiftU»«feLfcSL*fc«:. ft 
<7) £ £ IhJ fc^SL* Sr 6 . 


TRS i • RND ( 0 ) it 0 frio 1 £ 

X -cD$L%c£, RND (M) It 0 ty 
M£X'CDfiL%t;£%;4L-fZ. 


cpm • tttmt. tzt * u 
RND^lt(i"T. ^(X>t£3£Wl 


M223 RND 


MZK • 5l«[tc 0 ifcttft^SEtt 

£#***&*«&*> 4- x* 9 
>f IE 

£ IW] *?iJ<7)SUfc £ WUfcfMr*- 6 . 


CBM 

• *-xtwi t. 

PC 8 


TRSn 

• TRSi ilH]b. 

PC3 • 0 Vl±AJkm<7)12ffi<D$l 

3&£%£1-6. A 

fi&v\ 

IF 82 

• CPM £Wlt. 


• CPM £W)t. 

C180 

• M223 t IS] t. 

M243 

• M223 £ [S] t. 

MZB 

• MZK £ |^J t. 

BUB 

• CPM tWlt. 


FM8 

• CPM tWlt. 

PSP • M223 tWlt. tit* l , 

IRND (N) ti 1^N^9999 T'* ») , 
1 fr!yN£X'0r>1&%C<7)%tf&&5£!k 
Trh. 

PC88 

• CPM tWlt. 

N52 

• **twit. 

PC6 

• tttwit. 

MLT 

• *-£tWlt. 

HC 

• ***1131;. 

FP1 1 

• t Ml t . 

SMC • (A) h. 

• IRND (N) T-OlUJi N JUT^SL 
6. 

MZ35 

• PC3 tWlt. 

XI Hu 

■ 3l8ci±®»&T"# h. 

MB1 6 • CPM t Wl t. tzt*L, St 

Wt 0UL±1 3ZffiX'& &. 

IBM55 

• CPM tWlt. 

PC100 

• CPM tWlt. 

MSX 

• **£Wlt. 
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SL*M>ttJJWKJ£ RANDOMIZE 


M3Z : RANDOMIZE 

ffltm : mkn&nz®:*., nmtzu&ttm’ 

: 1 ^ = y-Ai-i't'RND 

&»*>«*£*<*>*«*. 

2 RND IS ^ 7” d /7 A ^ t'filffl t ■& *fl$It&5E<7)£ #(C$! 

7 tm'\t-bz>. 


-fu*? -7 Ax $ lj : RANDOMIZE Xfrm'lf Lfcfk, SL&£- 10 

1+&. 

10 OPEN "POUT” FOR OUTPUT AS FILE 1 MODE 3 

20 RANDOMIZE 

30 FOR I = 1 TO 5 

40 PRINT #1 , RND , RND 

50 NEXT I 

60 CLOSE 1 

70 END 


0.883404 

0.702057 

0.820042 

0.631872 

0.688332 


0.049004 

0.129996 

0.108947 

0.169425 

0.963796 


: RND 


s^-rx 


APL — 

N52 — 

TRS i RANDOM 

PC 6 — 

CPM RANDOMIZE A 

• 0 ^ A ^ 65529 

• A &i~Z> < 6. 

• A <nmiz J: 
h. 

MLT • BUB £ |a] L-. tZfi L, 

BASIC T'(i “Random Number 
Seed (-32768 to 32767) ? £& 
TjkLXXtj'&lbiztch. 

M223 • 

hc • bub tmt. 

MZK — 

fpi 1 • *-%t m t. 

CBM — 

SMC -BUB tmt. fzt* L, 

PC 8 — 

MZ35 • TRSi tmt. 

TRSn — 

XI Hu RANDOMIZE A 

• -32768 =£ A ^32767. 

• t BASIC £<gL*fc&yi]£ 
& . 

PC3 — 

IF 82 -BUB^IWJb. 

1"<JU3 RANDOMIZE (A) 

• -32768 ^ A ^ 32767. 

• lifrti CPM t mt. 

MB1 6 • V'OV* <!: mt. 

IBM55 • MLT tmt. 

ci so 

pcioo • bub tmt. 

M243 

MSX — 

MZB — 


BUB RANDOMIZE A 

• — 32768 ^ A ^ 32767 £?jS&*:££:tt 
tU£Z ^ &*V'. 

• nfrii cpm tmt. 

FM 8 • BUB <L [o] b . 

psp -*sct mt. 

PC 88 -BUBilWlb. 


mm fac 


MR : FAC ( A ) 

MM : Acor®*****. 

: i Alt 0 ~33<7>*£$c. 

2 FAC (7) =1*2*3*4*5*6*7 T'ftffl "C£ h . 


37° □ I 0~3 32r<7>»*«-*0>S. 

10 FOR 1=0 TO 3 
20 PRINT I . FAC< I ) 

30 NEXT 
40 END 
OK 

x. ft m 
RUN 
0 1 
1 1 
2 2 
3 6 

OK 


mm : 
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7jp?hV T>)\j 


APL 

- 

SMC — 

TRSi 

- 

MZ35 — 

CPM 

- 

XI Hu • 

M223 

- 

MB1 6 — 

MZK 

- 

IBM55 — 

CBM 

- 

PC100 — 

PC 8 

- 

MSX — 

TRSn 

- 


PC3 

- 


IF 82 

- 


U"^^U 3 

- 


C180 

- 


M243 

- 


MZB 

- 


BUB 

- 


FM 8 

- 


PSP 

- 


PC 88 

- 


N 52 

- 


PC 6 

- 


MLT 

- 


HC 

- 


FP1 1 

- 
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h SL%, SR% 


MjX. : SL% ( A% , A1 ) , SR% ( A% , A1 ) 

: a%£ ai t-/ M'fl-, feitus-Nx7|. ! 'n. 

wa : 1 ftm£tel± 2 zm< 7 >Al h* y 

2 A %ti 2 i££Hi£ 3) X'&ZZt. 

3 Al £J±, i&^TIwJ — => -7 h Ztlh. 

4 BASIC t/u /7^t, T-fe>7'7(T)J:T4‘t'7m^H 

5 DEF FNP(C) = C + 65536* (032767) 

DEF FNQ(C) = C — 65536 * (C< 0 ) 

SL% = FNQ(A%)/B, 

SR% = FNP(FNQ(A%) * B-INT(FNQ(A%) * B/65536) 

* 65536 "Cftffl X'£ & . tzK L, i/7hftl, 2, 3,-<?)i:l 
B= 2 , 4 , 8 , — . 

^ |= ; 0 tl<F>lti[cr>zt. Binary- digIT C0B&. 

2K >y b \><4 2/<4 ftt'y 

tf y Mfrfc KtSii. 

4 ^ ^ s (ci80). 


yp ^"7 A#lj : ZMWl “0123” £-4 bf'y 

10 A1%=SL%< '0123' »4) 

20 A2%=SL%( '0123' »-4) 
30 PRINT Al% 

40 PRINT A2% 

50 END 


m n m 

1230 

0012 


: 


5>7h • L/yh96, y^h96 


APL 

— 

TRSi 

- 

CPM 

— 

M 223 

— 

MZK 

- 

CBM 

— 

PC8 

- 

TRSn 

- 

PC 3 

- 

IF82 

- 

\s Jl *3 

— 

C 180 


M 243 

- 

MZB 

- 

BUB 

— 

FM8 

- 

PSP 

- 

PC88 

- 

N 52 

- 

PC6 

— 

MLT 

- 

HC 

- 

FP 1 1 

- 


SMC — 
MZ35 — 


XI Hu — 


MB1 6 — 


IBM55 — 


PCIOO — 


MSX — 


LEN 


: LEN ( E$ ) 

2 0 *» b 255 comfrffi btlZ. 


~f p *f =7 AtfiJ : v^i^&ac^jc 


10 

E$=" ABCDEFG" 



20 

FOR 1=1 TO 7 



30 

F$=LEFT*(E*, 

I) 


40 

A=LEN<F*) 



50 

LF’RINT "F*=" 

?F*, "LEN (F$) =" ; A 

60 

NEXT I 



70 

END 




*T tfj 




F$=A 

LEN (F$) = 

1 


F$=AB 

LEN(F*)= 

2 


F$=ABC 

LEN(F$)= 

3 


F$=ABCD 

LEN (F$) = 

4 


F$= ABODE 

LEN (F$) = 

5 


F$=ABCDEF 

LEN (F$) = 

6 


F*=ABCDEFG 

LEN (F$) = 

7 
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yyoy 


APL -^^^iHlb. 


TRSi 

* *-xt mt. 

CPM 


M223 


MZK 

■ ** tmt. 

CBM 


PC 8 


TRSn tzt* L, ~$C. 

com £ 0 X'h o X l± &* b t£ 

PC3 • tttfflt. tztS L, 

E $ *+&&&&<?>*&, iJ'v^X- 

IF 82 


Is *<^3 


C180 


M243 

• *3c£|t]L. 

MZB 


BUB 

• **£[5)1:. 

FM 8 


PSP 

• *-*:t fwjb. 

PC 88 


N52 


PC 6 

• iwi t. 


mlt 


HC 

• t. 

fpii 


SMC 

• mt. 

MZ35 -tttmt. tzt* L, 

E$ 

9 * —-J- — is 3 > X~t) x X 
tj . 

XIHu 


MB1 6 

• lb. 

IBM55 • 

tl 6 . 

• 2 '<4 h • 

?|JE $ 

KLEN ( E $ ) *''*6. 

PC100 

• IBM55 £[SIb. 

MSX 
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U fij L RIGHTS 


: RIGHT$ ( E$, A ) 

I 1 0 ^A<256 

2 A tl(i\ ') tfrT ^ tl 

%mmtLxMfrti&. 

3 A^ft^'E$ (7)g^ J; E$£fcsO^£tC, 0 

<50it^(± -F/u • XF ‘J > ?* b £: & . 


10 E*=" ABODE" 

20 FOR 1=1 TO 5 
30 F*=RIGHT* (E*? I ) 

40 LPRINT "RIGHT* <E*, "5 I? ")="SF* 
50 NEXT I 
60 END 


m & m 


RIGHT* (E*? 
RIGHT* (E*, 
RIGHT* (E*, 
RIGHT* (E* ? 
RIGHT* (E*, 


1 )=E 

2 ) =DE 

3 )=CDE 

4 ) =BCDE 

5 ) =ABCDE 


: MID$, LEFTS 


^-ThS 


APL 


N52 


TRSi 


PC 6 


CPM 


MLT 

• IF 82 bI3b. 

M223 RIGHT (E$, A) 

• io<X> Affjg£‘ t?W& 

£X(?)-X^\\ A^)M 

&COX&&. 

HC 


FP1 1 


SMC 

• 1 F 82 £ i^i b. 

MZK -^bl^b. 

MZ35 

• tttmt. 

CBM 


XI Hu 

• Wit. 

PC 8 


MB1 6 

• IF 82 iffflb. 

TRSn 


IBM55 

•IF 82 2: IHI b. 

PC3 


PC100 • IF 82 bfHlb. tzt* L, 2 

IF 82 

$h& 

• a ft 



MSX 


C180 E $ ( A : 508) 

• *^&E$ (C*}b, E $ (n : m) 
£fF<£t E$c7)n^@7&‘^m^ 

£ IXfrZtlZMjctt&t: tft 
i£ rights tm tmz 



M243 

• M223 ^:!W]b. 



MZB 

- I®) t. 



BUB 

■ ** i rsi t . 



FM 8 

• ^bisJb. 



PSP 

• *:££|3]b. 



PC 88 

• ^b[H]b. 




U tti L LEFTS 


: LEFT$ ( E$, A ) 

ffltM : 

: 1 0 ^A<256 

2 A 7&<»»/J^#yflCS!^«cfl[-C*ii(dr, 'J' 8 c.&JUTf±-BJ ») i&Xkti 

mm tt L tfihiU. 

3 A<7)ffi[3&<E$^)*$ J: E$£ffcOg£{z, 0 

<?>*§£•(* t;u-xMJ> ?'(c -2) . 


7°n ^7 A?ij : ^Jixum-r. 

10 ES=" ABODE" 

20 FOR 1=1 TO 5 
30 FS=LEFTS (ES? I ) 

40 LF'RINT n LEFTS (ES? " ? I " " ) =*' ? FS 
50 NEXT I 
60 END 


m rf m 


LEFTS (ES, 
LEFTS (ES.- 
LEFTS (ES, 
LEFTS (ES? 
LEFTS (ES ? 


1 )=A 

2 )=AB 

3 )=ABC 

4 ) =ABCD 

5 ) =ABCDE 


#hs : mid$, rights 
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U37h$ 


APL 


TRSi 

• *-xtmt. 

CPM 

■ tmt. 

M223 LEFT (E$, A) 

MZK 

• tttmt. 

CBM 

• **£iwib. 

PC 8 


TRS„ 

• **i|s]L. 

PC3 

• **£ 1 * 11 ;. 

IF 82 -tttmt. tzts L, A 

<7VH&SB(± E9^£ A $ ti h . 

Is ^<.Jls3 

• ** t mi t . 

C180 

E $ (1 : A) 


*«»E$ KWL, E$ (n : m) 
tW< t, E $ W n ^ @ b 

{^fr-x^nwm). niitu 

£*11*. LEFTS tmtffllZ &t 
■ 2 ) . 


M243 

• M223 £ mt. 

MZB 

• *-xtmt. 

BUB 


FM8 

• *-£.£& ]t. 

PSP 

• ■*-*: tmt. 

PC88 



N52 -tttmt. 


PC6 

• **£ngt. 

MLT • 0^ 

A^255 T. /J'«uiSUUTI*E»£ 
A1“&. 

HC 

• tttmt. 

FP1 1 

■*1CtWit. 

SMC 

A^255 

ai-s. 

• ^*£IW]b. fc£TL, 0^ 
T, ESteS 

MZ35 

• *:fc£|WJt. 

XI Hu 

• «C£IHJ t. 

MB16 

•IF 82 ^ [wi b. 

IBM55 

• 1 F 82 tmt. 

PC100 • IF 82 tmt.tztSt, 2 

'<4 h * ^ + 

MSX 

• **£[s]t. 
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+ IW3t3!5lJ<Z>8l ttj L MID$ 


M3 : ®MID$ ( E$, Al, A2 ) 

I 1 

@>MID$ ( El$, Al, AZ ) = E 2$ 

(DEI $lzte\,'X, AlX&Bib'k A2 E2 $ <F>Ui6hfr h A2 

s £ -ea £ & * * . 

*Nfi!S : i ai, A2 (i, 

£*>$rv\ fcfcru 

2 $fig(I)i::fcV'-C, A2 »), Al 

A2 Al #@ cr>X^h^ 

3 E$<7)^^c^Al J: ‘)/J'£v>*§£% h »J >?£&&. 


I E$ £'^<D£^?«UmU£, El$ <7) E2$ iCcfeUa 

10 E$="ABCDEF" 

20 El $=" ABCDEF" 

30 E2$=" 123456" 

40 MIB$(E1$:.3,2)=E2* 

50 LPRINT "MI D$ ( E$ .- 3 ? 2 ) = " ? MI D$ ( E$ 3 * 2 ) ? 

"El^=" ‘ El$ 

60 END 


X. fr W 

MID*< E* , 3? 2) =CD E 1 $= AB 1 2EF 


: LEFT$, RIGHT$ 


H'vK$ 


APL 

• <n?+. 


TRSi 

• «twt. 


CPM 

• APL £\s\t. 


M223 MID (E $ , Al, A2) 

• «tstii apl trat. 

MZK 

• APL tfflt. 


CBM 

• APL iig t. 


PC 8 



TRS„ 

• APL t. 


PC3 

• apl tm t. 


IF 82 • APL t\s]t. tzt' U 

C7VJ'&£G ti E9^£ A $ ti h . 

A 

U">c;u3 

• APL tWt. 


C180 E $ (Al : A1 + A2-1) 

• *^&E$ lZ*j-L, E $ (n : m) 

E$<7)n^@£'^m^ 

unx&m Z&'t-ZtlzZZ. 

• fflfeti APL £ [S]b. 

• gii?IJ CO^ti, 

F $ (12) (Al : A1+A2-1) 

M243 

• M223 irIWJL. 


MZB 

• APL £IW]b. 


BUB 

• APL £ |ij t. 


FM 8 -®t'A2 * 

(7)£ 

PSP 

• apl trat. 



PC88 • APL £|SJ t. 


N52 

fiSj. 

• Al, A2 ti 1 &L± 256 * 

PC6 

• APL £ Wit. 

MLT 

255 T, 

• 1 ^A1^255, 0 ^A2^ 
/H& .tfllATti ra^iLA-f h . 

HC 

• EH&3ti$:v\ 

FP1 1 -MLT^IhJL. tztz L, 

SMC 

• APL tmt. 


• ®tz MS L -C :**pj ^<50 — 

TS £ & A £ REPLACE 


MZ35 

• APL £fflt. 

XI Hu 


MB1 6 

• IF 82 £mt. 

IBM55 

• IF 82 ^IpJb. 

PC100 • A(7)/hSMSIiEg*#£A£ 

tl6. 

MSX 



1 3C^<7)m ‘Jig L STRINGS 


: STRINGS ( Ml. M2 ) 

: M2 <7)7x*— • Ml 

m®.. 

: i M2 {c, mwsc* 

2 Ml (iO ^Ml<256 '\^£MTliVJ'USXXWfrtl 

h. 

3 


n ^ ~7 A#lj : 3 C^?iJcL:p;** — • =1 — (A) 

10 A$= 11 ABCD 11 

20 LPRINT STRING* (5, A*) 

30 LPRINT STRING* (6, &H41) 
40 END 


IS ft 0IJ 

AAAAA 

AAAAAA 


#jiif : STR$ 
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7KU^$ 


APL — 


TRSi 

• isjb. 

CPM 


M223 

■ Ac-sctmt. 

MZK 

— 

CBM 

- 

PC 8 

• «C#M. 

TRSh 


PC3 • tzti L, M 2 

i j). 

IF 82 




C180 • £: L . tzt? L, 

REP $ ( E $ , A) liE$ £ A fl*l 
&BU&. 

M243 

■ ** t |B] t . 

MZB STRING $ M) 

BUB 


FM 8 

• \s\t. 

PSP 


PC 88 


N52 

• M2 (i JIS KTA5. 

PC 6 

- 


MLT -Ml, M2 A'&ScjScolft-g-, 


0 -255 com WT-, 'hi&Aiayii 
EJ^EA-rs. 


HC 


FP1 1 

mt. 

SMC 

• M2 li^Z^ IJCOA. Tfc^ 


MZ35 

• PC3 ^ fn] b . 

XI Hu 

• M2 

MB1 6 

• MLT t mt. 

IBM55 

• MLT tlHjb. 

PC100 


MSX 
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^e<z>EP^ spc 


Mutt : spc ( 10 ) 

mm. ■ i 3l&li, 0 fr <o 255 £ X<F>$m. 

2 SPC |^]$Gi, PRINT <fc O' LPRINT *60 

3 3l#<^'H&a&#ti. -W »> »-C ^ix-5>. 

4 SPACES (10) :<7)^ftAtnI. 

5 £ £, SPACES J: Office 
<£> -i> . 

‘“’PRINT #n :fc+Ti1£x.S. 


m 7ntf ^ A#lj : LPRINT <L*&*£-*>-ti-fcR 


10 LPRINT 
20 LPRINT 
30 LPRINT 
40 LPRINT 
50 END 


" ABCE»EF " " SPC ( 5 ) 
SPC (5) ? "12345“ 
SPC (5) , "12345" 
SPC (10) ? "12345" 


"12345" 


& ff m 

ABCDEF 1 2345 

12345 

12345 

12345 


#f *3 : PRINT, LPRINT 


3 A-* 


APL • ^t\n]t. 


TRSi 

• tzt' l, m$k 

STRING $ ( 10, “ ” ) Xffl t Z 

tfrXZh. 

CPM 

• * * t |nj b . 

M223 

• SPACES (10) 

MZK 

• *Sctmt. tzt: ft. 

®2 X PRINT Sets X {/PRINT/ 


CBM 

• **£Is]b. fcfcfL, 

m2 X PRINT -£<X>frXi££Z>. 

PC8 


TRSn 

• #* <!: RiJ L . 

PC3 

SPA (10) 

• Wffi2 

IF 82 

• ** t IhJ L . 

U *<JU3 

• Tilsit. fc^L, ^ 

m 2 X PRINT *& I O' PRINT# 


Cl 80 

• fcfcrt, mm 

REPS 

(“ ”, lO-eimi:^ tij< 

X$ h 


M243 

• M223 £|SJb. 

MZB 

• MZK 

BUB 

• t IHJ b . 

FM8 

• W"<;U3 i: Ih] L. 

PSP 

• ^ Ip] L. 


PC88 • tW\t. tzt* L , 


PRINT #n -£* X'i> itx. h Z t £ 
v-aT;K:nflieiTv^. 


N52 

• **£|s]b. 

PC6 

• #*£ls]b. 

MLT 

• tttfSlt. 

HC 

• **£[H]b. 

FP1 1 

• spaces UMWifcv*. 

SMC 

• M223 £ PI b . 

MZ35 

• PC3 t Kb. 

XI Hu 


MB1 6 * X 

cr>fcdbtititztyyiVX±.X'li, 

ipg X'M o^ 1 ) cn>%t<n x x £ 

IBM55 

• mbi6 tmt. 

PC100 • tztz TL, 91 

|&{i —32768—32767 

£> . 

MSX 

• l w] b. 


* h ■; INSTR 


: INSTR ( M, El$, E£$ ) 

^H&nX 

«l#® : i MtinnB^«,Tira-c f 

li-BJOteTfeilS. 0^M<256. 

2 M ^El$^*^ija«t El $ h <J t-)\s* X h IJ > ^ 

<r>m&£fzl± E2$^M i o^^^v^^(i, KJ*Sc^ti± 0 £&•£. 

3 E2$3&<t;u-xFU>/^li, MI& 1 £ fcf±M ££ S. 

4 E2$ £> J: lA'El $ ^ T'£> oti 

nr&-c*s. 

5 1MJ-e*>*. 


’Jut? =7 AtfiJ : a$ “sh” cDfiM^-r. 

10 A$="SHINSHU UN IV." 

20 I = INSTR (A*, “SH") 

30 J= I MSTR ( 3 , A* , " SH H ) 

40 LPRINT , T = ,, “ I, "J= , ‘- J 
50 END 


m ft m 

1= 1 J= 5 


mm : 
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-ryxhuy <7 


APL 

— 

TRSi 

— 

CPM 


M223 

• ** i 1BJ t . 

MZK 

- 

CBM 

- 

PC 8 


TRSn 

• ^ t |HJ t . 

PC3 

- 

IF 82 

• t |HJ t . 

U' *<Jl*3 


C 180 POS ( El $ , E2 $ , M) 

• m&tt-xtmt. 

M243 

• t m t . 

MZB 

- 

BUB 

• *Xt |S]t. 

FM 8 

• tttmt. 

PSP 

• ci8o tmt. 

PC 88 $M~, rtil 

?i] T rn i- 6 

SEARCH 

N52 

• 0< M<256. 

PC 6 

- 


hc -tttmt. 


FP 1 1 

•1^M^256. £tz, Wffl. 

3 ti 0 1 1£ h . 

SMC 


• E2 $ 

tf+jv-z, h 'J > 

m%t<nWM0 ttzlt M. 

MZ35 

SEARCH El $ , M, 

E2 $ 

, N 

• N iZ 

liJt.oj&‘ofctfcSj& f A&. 

XIHu 

• 1 ^M^256. 

MB1 6 

• 'J'3&^JaTt±eg^£A£ 

tl2> 



IBM55 • MB16 tfflt. 

• w<7)ftfe(Z, El $ COn #fS<7> 

h»TSSi-KPOS 
( El $ , n) tf&h. 


PC 100 

• IBM55 t mt. 

MSX 



MLT 


• N52 tffl t. 


- 304 - 


<7>*i5£ TAB 


MR : PRINT TAB ( 100 ) ; “ ” 

Sift 

lisi : ®«L4:fiSJf$SS:-r') > M"*. 

wa : 1 TAB fi PRINT £ tzl± LPRINT * + T'L *‘1$ x. Ke v*. 

2 t im&ny'i) > tab 

3 * feS(i 0 fr C? 255 £ T'<7)$M. 

4 teaoa^ss-c**. 

5 tafU’c**. 


^ P *? ~7 A#J : LPRINT 2fic (:7U^'\<0fT5ffiU> cb *l<&^L>-t± 


10 

A= 1 0 


20 

LPRINT 

A 

30 

LPRINT 

TAB (10) ? A 

40 

END 


n 

ft «ij 



10 



10 


#fjg : PRINT, LPRINT, PRINT #n, SPC 


apl • **t mt. fzt* L, 51 

$c(i0£‘p>255. 

• TAB(O) (i 256 <7 >{£S^t ! i — '/)V 

SJ: TAB 

• PRINT 

PRINT *4 3 cO^“CfflV'‘2). 
£ £fr7. 

C180 • **£ rat. fcfcTL, 51 

3&(i 1 *‘£>80. 

• PRINT *4 , ’C^^ffl«T. 

TRS i • **t|S]b. tzt* L, 63 

J: ►) fc*£v*5ia*»5eLfct $ 

t±, %<F>%LfrioSi*5\\,'tztiLW.£ 

• TAB liavvU $ 

^ n > i^4‘V\ 

M243 • M223 £ [r] b . 

MZB • MZK £ Inlb. 

CPM • ^* tfflt. 

BUB • **£ ffib. fcfcfL. 51 

M223 -**tl*!b. tzt' L, 51 

$c;i CRT f#*79, * 0 > 9 *C 

#*131. 

• PRINTS, PRINT #n *4 , T'ffl 

FM8 • **£|3]b. fcATL, 51 

3&(i 0 Jo 32767. ^<7>££, 1 

at 

•PRINT*, PRINT #n *4* TAB 

V ' Jo tl %> . 

mzk • #*£[^b. fc*TL, 
PRINT *+T-*>.*affinr. 

PSP TAB (Iff. ff) 

• *&»£{***£ [ 5 ] b. *<r>Kfr\z 
ff if&5e-C# 4. 

• tff^±aii79S fc«35. 

• ff^>±RIi25ife*i24-C®i*Br, 
CRT 

CBM • MZK tfflt. 

pcs • **#jm. 

TRSn • 0 

V'£: t>l£'<k<7)falzffit < . 

• TAB = 

=3 o > 

PC88 -**£[nJb. 

N52 • #*£[5]b. 

PC3 TAB 10 

• PRINT *+-CfflV'4. 

PC6 • PRINT #1 X'i>faz-h. 

IF 82 • l--<;U 3 £ fWJ t. tzt* L, 

I£S(i Ofrti 255 
PRINT*, LPRINT *4 , 'C'<7>^ 

MLT • 5 laii -32768-32767 X% 

MrfpOfiTAB ( 1 ) tie*), 80 JU 
Ji(i80T*f!j otz&n t><XZ>. 

hc -tttmt. 

u^iUs *^*tIWJb. t* L , 


ED $=«j<Z>» 5 £ TAB 


FP11 • V 


smc • r •; > h tea*<*&5£fia 

TAB 

en=r--r&. 


MZ35 *PC3tf5]l:. 


xi Hu 


MB1 6 • 

£.A2tlb. m$kib<OX**>tUXl 
tmt. 

• — v Mtm J: »J /J'£ 

sgteBdiMH-*. 

l il$$c£ T'fiJ o fc & ») jz 
*&5e3*L&. 


IBM55 • MB16 tfflt. £tz, 31 

%k<nf\cnm± o tfr&Ztib. 

• PRINT# 


PC100 • 3l£fc{i -32768 - 32767 

eo*SE0. /z*5L, &<nmiOt& 

KZtlb. 


MSX -^3ti|H]b. 
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yy 
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H#£lJ TIMES 


: TIMES 

.y 7<7)l#M£7K-t. 

4#8J[ : 1 TIMES liftffi? O y ?^l#*J£l$0^HH:MM:SS COH^T' 
$r*>\ HH (i 0 ~23, MM i: SS (i 0 ~59<7)l6ffl. 

2 r^/I^D.y^(±, TIMES == “11:22:33 " & B&;cr>Jc3 :} £%C t 

Lt 3 KtH. TIME $ C: ffi £• ft Ai" & Z. t l>. fcfcf 

L, INPUT TIMES icftAT- h Z t lit'# 

3 o •/ ^00:00 :00(C|&5££*L&. 

4 .y ?*ht?frtthWCfeL%:'''t £l±, TIMES 

5 II# UU U J: ^ r H fr £ *IJ mi t- -2) <n ( c ffti f ij T *> <5. . 


7°p y =? /xffl : lo^r^ic^ij^^-r-s^j. 

10 TIME*="00 :CI0 :00" 

20 IF RIGHT* (TIME*, 1 ) < > " 0 M THEN GOTO 20 
30 PRINT TIME* 

40 FOR 1=1 TO 1000 :NEXT I 
50 GOTO 20 


m ft m 

00 : 00:00 
00 : 00:10 
00 : 00 : 20 
00:00:30 
00 : 00 : 40 
00:00:50 


#flg : DATES, SLEEP, WAIT 




APL — 


TRSi • B{W£0#*lJ£MM/DD/ 
YY HH : MM : SScOJF^'C^i-. 
• BWt DOS ^ — 

K Tft 1 . 


CPM 

- 

M223 

TIME 


MZK 

TI $ 

• ttfigli ** t ISJ t . TI$ 

<7>IBSUi HHMMSS. 

CBM 

• mzk tmt. 

PC 8 

• 2F^Sc#M. 

TRSn 

•2fcfc£|5jt. fcfcfL, 

TIMES <7)^j$fiHH. MM. SS. 

PC3 

- 

IF 82 

• M223 tmt. 

JU 3 

• M223 £ |WJ t . 

C180 

• M223 £ It] t . 

M243 

• M223 tmt. 

MZB 

• MZK t[H]b. 

BUB 

• M223 tmt. 

FM 8 

• X^C^InJ t. 

• time i±#ils:s#|BJM 8 fc. 

PSP 

TIM 

• mm M223 ^ L. 

PC 88 

• 3i#<7)0^J£^1-. 


N52 

• PC88 tmt. 

PC6 

TIME 

♦ 1/512 t u 20 'oiiflp-r^, ? >r 

V. 


. A- 

IEm 

^t L*CI±ffflW. 

MLT 

• M223 £|WIl;. 

• TIME=M1 T'fr ■) . 

HC 

4 ti$rv\ 

FP1 1 

- 


SMC TIMES (N) 

• 0^N^4 •CirttfUdTirfeirV'. 

N =0 : HHMMSS 

N = 1 : H H : M M : S S 
N=2 : H H : M M : S S 
tzt* L, 120^^ 

N = 3 : “AM” £tz&, “PM”£i£ 
1\ 

N =4 : <7)0# “0", Tf£<7)0# 

“1” £i£T. 

• N £ Ww&T^» t 0 £*&5eLfcw £ 

-S . 

• IxSeIC ( i SET TIME 


MZ35 TIME 

H B £ 0# (240#ftfjftJ) £, /h&fflS 
*^> (60it). 


XI Hu • PC88 t\ Hit. # 

*^ f TIME*''#) -2,. 


MB1 6 • TIME (i 0 0#O 


IBM55 • PC88 £ HjJ b. lx 

5g0#, “00” ti‘5. 


PC100 • PC88 t 111 t.S $>£, 0 

0#*‘ to commm h TIMER 


H#£IJ TIMES 




MSX TIME 

• mmk 

\tio 

• H£5Efi TIME = M1 TTt^. 
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Bttt* DATES 


: DATE$ 

4 #®: i -ro nttrtztttAiti-ttzshiztiim-fh. 

2 Bft(t<7)JF^(2, YY/MM/DD. YY MM DD t)* 

B£ftb, 

3 '€$tf£AP#(2(2, 79/01/01(2 -fe y b ZtlX^'h. 

4 DATE$(2(2#rbV'{i££TCA-f ttH. 

J^fg : n ^p-y^ -^imm-c, '<jux^h>,lx^x, *<r>\&\ 


7°n7'-7£>tf\] : Bttit^-fWJU <kizBtt\i&'$:&i ut^/2PPJB'J^*'5>. 

10 LF’R I NT DATES 
20 DATES= "82/01 / 10" 

30 LPRINT DATES 
40 END 


^ n m 

79/01/01 

82/01/10 


#BS : TIMES 


^-ThS 


APL — 

MZB — 

TRS i TIMES 
• MM/DD/YY 

HH:MM:SS,(£/B/^ B# : ^ 
: #) T'^- 2 ). 

BUB • IF 82 t\o]\Z. 

FM 8 -**£[5]b. 

CPM — 

PSP — 

M223 DATE 

• Blt(t<7)^^:(i, DD-MM-YY ( B 
-n-^.) X'hh. 

PC 88 • ^^liijb. / 2 / 2 'b, B 

tttt( 2 HI?r£ 2 i, iEbv^B#(tt 
-0 X V ' h . 

MZK — 

N52 • PC88 £ [n] b . 

CBM — 

PC 6 — 

PC 8 • 

MLT • B#(2, 1978—01 

—01 

• Btt(t <7)^(2, 

YY-MM-DD, YY/MM/DD, 
YYYY-MM-DD, YYYY/MM/DD, 
(#•- ^ - B or^/^/B) -£'*>&. 

2 tir*CfTo / 2 *#£% 0 
/H 2000 -2099^ <7)1&5e £ Lfcd £ 
(2 & h . 

TRS n / 2 / 2 'U B 

WWWMMMDDYYYYNNN^ST 
CAS BOW?), B(# 

^), g§if^ O&^r-), TC-B/^N 
B, S #0<7)^T'il^>T B ST 

PC3 DISP TIME 

• CRTJi (2BT*iJ£^1-&. *£& 
£ • B £H#(24B#|Hj(|ji]), 'J' 
mwftw (60it&) zm-t. 

HC -tttfflt. 

FP1 1 — 

IF 82 DATES (M) 

• M £ b ** £ l»J b . 

M (2 1 ^ 1 B t? <F>mU B %t£A 
4*L, Btt(t( 2 '£&f£. 

SMC DATES (N) 

• N (2 0^N^2 X&Z>m&, 
xXX&bZt. 

N= 0 : MMDDYY 
N= 1 : MM/DD/YY 
N = 2 : YY/MM/DD 
(YY£''3T MMA'^, DD/r'B) 

• tSifclt SET DATE 

• $fcw£(2 PC88 tmt. 

• '* 1(2 mmtx DATE M t'tb 
t, M (2(2 1 H 1 

%L&Xb. 

-^tlujb. tzts L, -9 
6 ^^(iffif!f2000^iT'(iSiifl^ 
{z^W-Ztib. 

C180 • tztz L, 24 

B<o£#r( 2 b 

tc'*'. 

M243 •M223 £(5]b. 

MZ35 • PC3 i: IWJ b . 


Hftlt DATES 


xiHu • 


MB16 • H 

mlt t mt. 

• *F-cn%mi3. 1980-2077 £T\ 

• DATE l/3l 0^>b. 


IBM55 -PC88£[H]b. 

• MM-DD-YY X'h & . 


PC100 • DD-MM-YYYY 

t 


MSX — 
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^'-YSS 
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B*0 DAY 


BA : DAY 


I m&toffi B IzWfc-t- ( 1 frb 7 ) ^Aotv^. 


1 f± ( 0 ) *C, 7 (i (±) -C&&. 

£ ATlI - !) £, -fe *y h 

DEF FNDAY( Y, M, D) = ((( (26 * ( (M-2) -12 * (M< =2) ) 
-2)¥10) + D+((Y+(M<=2))MOD 100) + ( ( Y+ (M< = 2) ) 
MOD 100) + (((Y+(M<=2))¥100)¥4)-2* ((Y+M<=2)) 
¥100)) MOD 7)+ 1 
t LtztZ, 

FNDAY (1984, 4, 1 ) 

bXb - 7 X'5-Z.titl DAY (n\xm[z*z>. 




10 REM *** DAV TEST PROG 
RAM **+ 

20 ON DAV GOTO 30,40,58? 
68,70,88,90 

30 LPRINT "1*301:'' " : GOTO 
100 

48 LPRINT "r^30t''"«G0T0 
188 

50 LPRINT "JJ30t""i GOTO 1 
00 

68 LPRINT "7^30t" " : GOTO 
108 

78 LPRINT ''1530t" "sGOTO 
100 

80 LPRINT "TlSOt" " : GOTO 
100 

98 LPRINT " K"30t" " : GOTO 
100 

100 LPRINT DAV 
110 END 


^ ff 

RUN 

?730t" 

5 


#HS : DATE$, TIME$ 


APL 


FP1 1 


TRS i 

— 

CPM 

- 

M223 

- 

MZK 

- 

CBM 

- 

PC 8 

- 

TRSu 

- 

PC3 

— 

IF 82 

• BUB tfflt. 

ls^Ol/3 

C180 

- 

M243 

- 

MZB 

— 

BUB 

• DAY It SMC <T> DAY $ 

(1) 

t, DAY $ It SMC <n DAY 

$ ' 

( 0 ) 

FM 8 

- 

PSP 

— 

PC 88 

- 

N52 

- 

PC 6 

- 

MLT 

- 

HC 

• «C#8B. 


SMC DAY $ (N) 

• N 1 (mtfli 1 CO ( 0 ) *' 
6 ( it ) ] z_ to tl h . 


N *<0 fr'gn&Ztltzftlt 3 
(“SUN" A' b “SAT”) ■h^x.io 
tlb. 


MZ35 

— 

XI Hu 

DAY $ 

• “SUN 
h. 

” frib “SAT” 7 ¥5-z.htl 

MB1 6 

- 

IBM55 

- 

PC100 

- 

MSX 

- 


S*Mfc INT 


mat : INT ( A ) 

$$Wl : i cint t cornea, 5-z.htu>mt<&ffl' h%c&m-c*> & 

Z££, nmz&ltZU £*<&&& Z£T*>&. 

2 FIX Attain £% FIX It A X ») 1 £flt±#3:ft 

£^v -fZfrt?, 

INT( — 14.5) = — 15 
CINT( — 14 . 5 ) = — 14% 

FIX( — 14.5) = — 14 


! Al, AZ<M&&&X, M±(7)!&£tfr, ftlftl A3, 
A4 fcfc'U A3, A4 liiMH'ft 

10 A 1 = 1 23 . 4 : A2=-123.4 
20 A3=INT(A1) s A4=INT<A2) 

30 LPRINT "INT (123-4)="; A3 
40 LPRINT " INT ( — 123. 4) = " ; A4 
50 END 


* ff m 

INT (123.4)= 123 
INT (-123. 4) =-124 


#as ; pix, CINT 


APL 


TRS i 

• *-X£\s\t. 

CPM 


M223 

INT # 
h. 

• tttfflt. tztZ L, 
(C#) 

MZK 

• 4:* £ HJ t . 

CBM 

• *-% £ rsj t . 

PC8 

• ^ 

TRSn 

• t. 

PC-3 • tttWlt. fztZL, A 

IF 82 




C!80 

• *-X£\s\t. 

M243 

• M223 ilHjb. 

MZB 


BUB 

• ^iSCblsJL:. 

FM8 


PSP 

• *-Jc£ls\t. 

PC88 

•*-*:£ fflt. 

N52 

• 4 :* t |HJ t . 

PC6 



mlt •*:*:£ not. 


HC 


FP1 1 • ttCl rlWJb. 31 

ft(?)Ii:J: 0fg*f8J£ 
ti b. 

• cmuiwiiL-c, '1 'mr>fr£5-z. 

SBSft FRAC 

SMC 


MZ35 

• PC3 £.mt. 

XI Hu 


MB1 6 


IBM55 


PC100 


MSX 

• Tilsit. 


sstsMb cint 


Mj& : CINT ( A ) 

nil : 'j'fts&fl-fc-w'Jte-c, a £ r*mst;3E«-f a. 

## : i ^z.^tL&ry?', A <r>m.ij< -32768£‘^ 32767 £ 

2 f&jt&fi FIX Bf|*fc£|WI hZ.ht>< 

FIX HU3& t M& & (CINT( — 14.5) U-UttcZ). 


~f p +f -y a0ij : ai A2/\ftx-r§. 

10 Al =123. 45 
20 A2=C I NT ( A 1 ) 

30 LPRINT "Al = ** ? Al .«. "A2=" ? A2 
40 END 


H It #J 

Al = 123.45 A2= 123 


#MS : CDBL, CSNG, INT, FIX 


□>y\— h 


APL 

— 

TRSi 

• *-£ £ fH] u . 

CPM 


M223 — 

MZK 

- 

CBM 

- 

PC 8 


TRSu 

• *•*: i |sj L . 

PC3 

- 

IF 82 

• * £ £ IHJ L . 

Is 

• * £ (Hj L . 

C180 • ^ L . 

• CEIL (A) (2 A J: ») ;*: £ V'3&<7> 

M243 

- 

MZB 

- 

BUB 

It! fc. 

FM 8 

• **£|hJI:. 

PSP 

• 4:* t It! t . 

PC 88 

• N52 £IWJL. 

N52 • 'J'&.£JaT£eg*££AL 

PC 6 

- 

MLT 

• N52 twit. 


HC 

• mt. 

FP1 1 


SMC • N52 tmt. £ tz, TV 

u * • T'-?£&%cmiz&$ii-z 
CADR |3U&&*><2>. 

MZ35 

- 

XIHu 

• N52 tfflt. 

MB1 6 

• N 52 1 m t . 

IBM55 

• N52 tfflt. 

PC100 

• N52 tW\t. 

MSX 

• IHJL. 


mmvfr fix 


: FIX ( a ) 

fflM : A<oi£&gis 

43« : 1 A nm&Mnt # INT £it^\ FIXJiA^SJ: »)*£v'ffiE*fc£: 


: ai, A2 A3, A4^\^n^ : nftA-r^. 


10 

A 1=50. 5 : 

A2=-50. 5 

20 

A3=FI X ( Al ) 

: A4 

=FI X ( A2) 

30 

PRINT " Al = 

" ’ A 1 ? 

"A2=" ? A2 

40 

PRINT " A3= 

" ? A3 ? 

» A4=" " A4 

50 

END 



m 

fr 




Al= 50.5 A2=-50. 5 

A 3= 50 A4=-50 


#BS ; INT, CINT 
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APL -t££&b. tzti L, SGN 

(A)*INT (ABS (A)) 

Z ti)*rr£h. 

TRSi 

• *•*:£ |Hjb. 

CPM 

• *:fc£l^b. 

M223 

• **£|s]b. 

MZK 

• APL £[W] b. 

CBM 

• apl tmt. 

PC 8 


TRSn 


PC3 

• APL £|S]b. 

IF 82 

• *3c£!^b. 

U"<;U 3 

• IWJ b. 

Cl 80 IP (A) 

M243 

• ^^c^:ls]b. 

MZB 

• APL «F[H] b. 

BUB 

• ** fc fHj b . 

FM 8 


PSP 

• ** i Is] t . 

PC 88 

■ *sctmt. 

N52 

• mt. 

PC 6 

• APL tHb. 


MLT • PI t. 


7-fWX 


HC 

• 2p££[HJb. 

FP1 1 

• «tHb. 

SMC 

• **£|!?lb. 

MZ35 

• APL tl^b. 

XI Hu 

•«fcP3b. 

MB1 6 

• fpJb. 

IBM55 


PC100 

• *:££njJb. 

MSX 

• *:££|H]b. 


314 


CDBL 


®5t : CDBL ( A ) 

45* : 1 2it n fS$i<ofctf>, JBifcffrfcfi 0 tJd'A^T, mZkfrtk b6<7)T 

2 C# = ACT) £7 - icio tM» 

£ £fi, dcoCDBL^J 

-fflln i n 2iil38[ 0 t 1 /■JfttT'f^flS&fit. ^Ji.(±'10ilfi£cr'12(±, 2jt&'t'1100 016 


-f u ?' -? u®\\ : ^sy^^u-cftA-r-s. 

10 A= 1.234 
20 C#=CDBL (A) 

30 LPRINT " A= " * A ? " C#= " ? C# 

40 END 


m ft m 

A= 1 . 234 C#= 1 . 233999967575073 


#flS .* CINT, CSNG 


□ >M—h • -ST7;b 


APL 

— 

TRSi 


CPM 

• ^^Plb. 

M223 

DCML (A) 


ifisiejtt&u i-5i, flg&fmaao 

(BCD) 


M2K 

— 

CBM 

- 

PC 8 


TRSu 

• * £ i m b . 

PC3 

- 

IF 82 

• * £ t |5j b . 

3 

• £ ISJ b . 

Cl 80 

- 

M243 

• M223 £|SJb. 

MZB 

— 

BUB 

• THjb. 

FM 8 

• ^JbbfHjb. 

PSP 

• ^i^rsjb. 

PC 88 

• #*£|t]b. 

N52 

• «ti?ib. 

PC 6 

- 


MLT • ^drlajb. 


HC 

• ** i m t . 

FP1 1 

• &tkizmm±& ■ b*v\ 

SMC 

— 

MZ35 

- 

XIHu 


MB1 6 

• «i:lHjb. 


IBM55 -^tlSIb. 


• Z<7)1 tfe(3, 

1 h • D7— 2 '<4 h 

•=»— CDBL $ 

(X$ ) 


PC 100 • #»J®^ttT-4r < , 

• CDBL$|-|^bTf±IBM55<h[5]b. 


MSX • lb. 


CSNG 


: CSNG ( C# ) 

MM : i#«**>aM*^**i*s. 

»« : i 

2 EtiAl: J: & 1 6 . 

3 A = C# <r> J: ■) z. ii: <fc o -C 

IkfinTtgT'#)^. t £ttz<?> CSNG ng 


7°p y =7 Al^J : f£«i£#c# ©iM-JMtJ® A'xsm&uTftA-r^. 

10 C#= 1.23456789# 

20 A=CSNG ( C# ) 

30 LPRINT M C#= 11 5 C# ? “ A= " 5 A 
40 END 


n n m 

C#= 1.23456789 A= 1.23457 


#05 ; CINT, CDBL 


315 - 


APL 

- 

TRSi 


CPM 


M223 

FLOT (C#) 

MZK 

- 

CBM 

- 

PC8 


TRSii 

• 3 ^* t ra t . 

PC3 

- 

IF 82 

• - 4 :* £ |5j b . 

U" '<./U3 

• *x tmt. 

Cl 80 

— 

M243 

• M223 tfflt. 

MZB 

— 

BUB 


FM 8 


PSP 

• 2: ISJ t . 

PC 88 

• ^tS: <!: IS] b . 

N52 

• *:fc£IS!b. 

PC 6 

- 

MLT 

• «:£ISlb. 

HC 


FP1 1 

• 2 js:* t IS] b . fe* 


□ h • ^y y 7)i> 


CFINIH1 


SMC -nZM&L. tit* L, HM 

m^mr- 9 & 

CFLOAT 


MZ35 — 


xi hu • 9 #r a -crafts. 

A. 


MB16 • -1.70141 

X10 38 ~ 1 . 740141 X 10 38 *W>Z.& 


IBM55 

• z<7)Miz, X^\ 

2 '<4 h • i ' <y ( 

h -3— K<7)^U^i-6CSNG$ 
(X$) /><*>&. 


pcioo 

• 6. 

• CSNG $ ico^'T (±IBM55 £ I«] b . 

MSX 

CSNG (C) 
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F *3 SB □ — K 0 )§||S<fb CVI 


: CVI ( E$ ) 

W« : i E $ f± 2 '<T h coifc^yijT, S£ftuaHfe;5i'L&. 

2 2 -x. 7 - i i* 0 , 3 

3 MKI$ 

4 =7>ri» • 7 T T 3:^ 

*), %<nt 


7°P : “afile" 8cf£lC^ffeUTm 

*U, f 5 ]B^lC^-( 7 )c!:^( 7 )-tz^^# 
10 OPEN "afile" AS #1 b=l — 

20 FIELD #1,2 AS E$ 

30 FOR 1=1 TO 5 
40 GET #1 
50 AX=CUI (E*) 

60 L PRINT "e*=";E*;" cvi=" ;A%; 

70 LPRINT M fpos.= " ;FP0S< 1 ) ; 

80 LPRINT " 1 oc= " ; L0C( 1 > 

90 NEXT I 
100 CLOSE #1 
1 1 0 END 


m ft m 


e$=ta 

cv i = 

24948 

f pos= 

81 

1 oc = 

e$=ke 

c v i = 

25963 

fpos= 

82 

1 oc= 

e$=ch 

c v i = 

26723 

i pc<s= 

83 

1 oc = 

e$=an 

c v i = 

28257 

f pos= 

84 

1 oc= 

e*=?! 

cv i = 

851 1 

f pos= 

85 

1 oc= 5 


#flg : MKI$, MKS$, MK D$, CVS, CVD 


1 


4 


ziyjx-b 


APL — 


TRS i 

■ fH]b. 

CPM 

■ ** tmt. 

M223 

RECORDSIZ 

*HR*v 


MZK 


CBM 


PC8 


TRSn 

mt. 

PC3 

RFORMAT# 



if8 2 


1"<JU3 • 

** tmt. 

Cl 80 

OPEN#*-CH5£Ku a 


M243 

M223 blsjb. 

MZB — 


BUB 

^^CilHjb. 

FM8 

**£|HJb. 

PSP 

GET# 

f- cfc 6 Ksb']Z'W-Z:''\ 

PC88 

^3t<hrmb. 

N52 


PC6 — 



MLT 


HC -afcfcfc Kb. 


FP11 • 2^?iS^i#^, :fr1WJlc 

-b /uaMtfln £ ft & . 

SMC 

— 

MZ35 

• pc3 tmt. 

XI Hu 

■ tmt. 

MB1 6 

• b. 

IBM55 

• tttmt. 

PC 100 

■ mctmt. 

MSX 

- 


rtffla- ¥<ommSt 9 mil CVS 


Bat : cvs ( e$ ) 

if#®! 1 E$(i 4'<4 hcoJe^WT, 

2 4 — t % 9 , 5 

4 £, fiS. 

3 mks$ ?. 

4 7>/A • 7rJ M'ks&AlliLtzfifflgi&ry&Wi, 
frk&i&mtz&mi- &&&&*> ») f *<nt zizm^z. 


yp =7 A#!] : “afile”*'»b4^:^-ro!7c^^, ^flC^UTai 

10 OPEN "a-f i 1 e" AS #1 
20 FIELD #1,4 AS E* 

30 FOR 1=1 TO 5 
40 GET #1 ,1 
50 A=CUS<E*> 

60 LPRINT "e*=" ; E* ; " cvs=" ;A 
70 NEXT I 
30 CLOSE #1 
90 END 

m n m 

e$=jbcd c u s= 3.30888E-09 
e$=ujkl cys= 8.76993E-07 
e$== 0| cvs=-3807.87 
e$=u :¥u cys= 4.20052E-04 
e$=sake c v s= 6.85048E-09 


#HB : MKI$, MKS$, MKD$, OVI, GVD 
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□ >M— h • 


APL — 


TRSi 

*-xt mt. 

CPM 

*-*:£ rat. 

M223 

RECORDSIZ 



MZK - 


CBM - 


PC 8 


TRSn 

WtElt. 

PC3 

RFORMAT# £1£;c(f 



IF 82 

«£|5]b. 



Cl 80 

OPEN ^ 


M243 

M223 

MZB 


BUB 

*:££iw]b. 

FM 8 

■ *:££iwib. 

PSP 



PC 88 

■ *ict wit. 

N52 

■ ^TctlsJb. 

PC 6 

■ E$ (i 5 h <r>Sc^m. 

MLT 

• ^3: £ |WJ b . 


HC 

ttb Wit. 

FP1 1 • E$ (i6 '<4 h nScS&l. 

z. ti J: 9 V ' B#, tz -j~ Jirfrit 

nztih. 

SMC - 


MZ35 

pc3 twit. 

XI Hu 

PC6 £ wit. 

MB1 6 

twit. 

IBM55 • 

^f^ct W\ b. 

PC100 • 

*-xt mt. 

MSX 
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i*igp a - K (TMSsMI&ffi'ft CVD 


: CVD ( E$ ) 

$tfj£ : x&r-mmstiKzi&z, 

<&»: i e$,± 8 

2 8 t & »), 9 j£$--lU±<7)*%&tztttjjcr> 

3 MKD$ t&comife&ff?. 

4 7 > f A • 7 r 'f ^ ^ L 

38 %tf&m IZ %rmi~ & .j& 35 *<*> ») , * CO £ £ ic ^ ^ & . 


T&. 


10 OPEN "a-file" AS #1 
20 FIELD #1 ,8 AS E* 
30 FOR 1=1 TO 5 
40 GET #1 ,1 
50 A#=CUD<E*> 


60 LPRINT " &■£=" ; E^- ; " 
70 NEXT I 
SO CLOSE #1 
90 END 

m ft &} 

e$=j bcde-f gh cvd= 
e-£=u j k 1 mnop cvd= 
e$== o| Qq/?j cvd= 
e£=u : ¥ u«4 gi c vd= 
e$=sakechan cvd= 


cvd=" ;A# 


5 . 38770 0 7360 S727D-0 8 
1 . 4271 22099222655D-05 
1 . 234567899876543D+ 1 6 
7410. 3698527531 95 
3.3588374654231 64D-06 


: MKI$, MKS$, MKD$, CVI, CVS 


□ I/A— h • 5 T 7 JU 


APL 


TRSi 

• *-*:£& Hi. 

CPM 


M223 

• RECORDSIZ fctie*** 



MZK 


CBM 


PC 8 


TRS.i 

• *:£t|W]b. 

PC3 

RFORMAT# *«*(*<& 



IF 82 


3 


C180 

OPEN # ^bT'@l5e^ P zj 


M243 

M223 tn b. 

MZB - 


BUB 


FM 8 


PSP 

GET# -XX ''<7>&&co&jK 


PC 88 


N52 

fsJb. 

PC 6 — 

MLT 



hc -vximt. 


FP1 1 • E $ T h 

mwztiz. 

SMC 

- 

MZ35 

• PC3 £|HJb. 

XI Hu 


MB1 6 


IBM55 

•ttb IsJ b . 

PC100 

• fflt. 

MSX 

- 


SSMit<Z>rt«&ll- Rfc MKI$ 


: MKI$ ( M% ) 

$ 581 : : i t z . 

2 'i o fnX >b ti& . 

3 cvi t&crymmzif -?. 

4 LSET ifcli RSET 


“afile" [i3]R#lC^(7)cL^<£>b=]- K#^§- 

b=3— 

10 OPEN " a f i 1 e " AS #1 
20 FIELD #1 ,2 AS ES- 
SO FOR 1=1 TO 5 
40 INPUT" data" ; AX 
50 LSET ES=MKIS<AX) 

60 LPRI NT " aX= " ; AX ; • rnk i = " ; ES ; 

70 PUT #1,1 

80 LPRINT " 1 oc = " ; LOC:< 1 > 

90 NEXT I 
100 CLOSE #1 
1 10 OPEN "afile" AS #1 
120 LPRINT " 1 of=" ;LOF< 1 ) 

130 CLOSE #1 
140 END 

m ft m 


a.X= 24943 

mk i = t a 

1 oc= 1 

a.X= 25963 

mk i =k'e 

1 oc= 2 

aX= 26723 

mk i =ch 

1 oc= 3 

aX= 23257 

mk i =an 

1 oc= 4 

aX= 3511 

mk i =? ! 

1 oc= 5 


1 of = 70 


#flg : CVI, CVS, CVD, MKS$, MKD$, STR$ 


319 - 


• T'yzrS/V $ 


APL — 


TRSi 


CPM 


M223 

RECORDSIZ 

<GW*:v 


MZK - 


CBM — 


PC 8 

“4^#KL 

TRSn 


PC3 

RFORMAT# 



IF 82 

*-*:£ mt. 

1 *"<Jls3 

*-*:£ mt. 

Cl 80 

OPEN#-35ce@^W =J 

— K£#i5ei 

M243 

M223 tfflt. 

MZB - 


BUB 

mt. 

FM 8 

met mt. 

PSP 

PUT# 3c x-<nWk<r>m&. 

(- ct htzsh'&m*'''. 

PC 88 

*xtmt. 

N52 

*Sctmt. 

PC 6 


MLT 

tttmt. 


HC 

• *-$:£ mt. 

FPii 

• mt. 

SMC 

- 

MZ35 

• pc3 tm t. 

XI Hu 

• tttmt. 

MB1 6 

•2> . 


IBM55 

• mbi6 t mt. 

PC100 

•*-*:£ mt. 

MSX 

- 


- 320 - 


Kit MKS$ 


: MKS$ (A) 

W$L : 1 #»*»«[€: 4 ^ h<7)*^ij(z^-r^. 

2 CVS 

3 • 7 7 ^H: LSET ifcti RSET 
&ti*£ 


p 77 a#ij : ^t^ic^uxm* 

U “afile” iCt&ihW^. 

10 OPEN "afile" AS #1 
20 FIELD #1,4 AS E* 

30 FOR 1=1 TO 5 
40 INPUT "data" ;A 
50 LSET E*=MKS*<A> 

60 LPRINT " a= " ; A ; " mks*=";E* 

70 PUT #1 , I 
80 NEXT I 
90 CLOSE #1 

m rf m 

a= 123.123 mk's$= >v* 
a= 789456 mks*>=73~ 

a= 3.30888E-09 mks$=mbcd 
a= 8.76992E-07 mks$=n j k 1 
a= 6. 85048E-09 mks$=sake 


#fig : CVI, CVS, CVD, MKI$, MKD$ 


• 5 /> 7 ;b$ 


APL — 


TRSi 


CPM 


M223 

• RECORDSIZ £i&z_li f 

V \ 

MZK 

- 

CBM 

— 

PC 8 


TRSu 


PC3 

®*v' 

• RFORMAT# £®iz.l£‘& 

IF 82 




Cl 80 • OPEN#3C-C-ga^u 3 

M243 

• M223 i|H]L. 

MZB 

- 

BUB 

• <h fsj b . 

FM 8 


PSP • PUT# *r'<7)$c&cr>&jX; 

PC 88 


N52 



PC 6 • 5'<T h n-X&mz&fo 


MLT 

• £ fn) L . 

HC 


FP1 1 

• 6 '<4 h 


SMC 

- 

MZ35 

• pc 3 trat. 

XI Hu 

• PC6 i(WJL. 

MB1 6 


IBM55 

• tttisik. 

PC100 

• 3fc*tra t. 

MSX 

- 


fSffiJSffiMatfJrtSfl □ — Kit MKD$ 


Bit : MKD$ ( E# ) 

•* il£, TOlSn— K 

2 CVD 

3 £Ht£^>;FA • 7 7 -OWC LSET £fcf± RSET 


7 °p^ 7 A 0 ij : 

U, “afile" (Cj&iW-rs. 

1 0 OPEN " a-f i 1 e " AS #1 
20 FIELD 4*1 ,8 AS E* 

30 FOR 1=1 TO 5 
40 INPUT "data" ; A# 

50 LSET E*=MKD*<A**> 

60 L PR I NT " a 44= " ; A*4 j " mkd*=";E* 

70 PUT #1 , I 
80 NEXT I 
90 CLOSE *41 

m 'if m 

a* 4= 5 . 38770 0 7360 8727D— 08 mkd'$= j bcde-f gh 
a *4= 1 .4271220992226550-05 mkd$=u j k 1 mnop 
a*4= 1 . 234567899876543D+ 1 6 mkd$== o| Qq/fl 
a**= 7410 .369852753195 mkd*=u : ¥u«H g| 
a*4= 3 . 3588374654231 64D-06 mkd$=sakechan 


: OVI, CVS, CVD, MKI$, MKS$ 


- 321 


APL — 


TRSi 

-tttfSlt. 

CPM 


M223 

RECORDSIZ 


\ 

MZK 


CBM 


PC 8 


TRSn 

*-$ct rat. 

PC3 

RFORMAT# 



IF 82 



t fflt. 

Cl 80 

OPEN#^TE(l^Mu r? 


M243 

M223 £ fflt. 

MZB - 


BUB 

<L fsj b. 

FM 8 


PSP 

PUT§*:x-<?)&fSL<7)&j& 

izjz&tz 


PC 88 

is] b. 

N52 

tttfflt. 

PC 6 — 



MLT -tttmt. 


*TC 7 • 5 *" 7 VL$ 


HC • ** £ l?l U . 


FP1 1 


4 

SMC 

— 

MZ35 

• PC3 £\5\t. 

XI Hu 

■ 4;*£is)t. 

MB1 6 

• *-xt mt. 

IBM55 

■ **£[ sib. 

PC 100 

• *-X£fflt. 

MSX 

- 


322 - 


liijjtej&CDim'fe NORMAL, FIXED, FLOAT 

: © NORMAL 
© FIXED 3.5 
® FLOAT 6.5 


mm 


£ , 0 M-IA t' fr 1b%L 1~ z > . 

(Di^gfr 'H&.& §y T'<7) £ *&s£ ■ t h . 

1 (T)fi, 12fir. 

(D(i, 1 &_t, 10 12 5lc«l^*k«i. #«MfHfc£3LLfcB5£ 

-2) . 4^i§!j X% 4'3& .£JUTlltfr 

*CIEtf£(~£> k ;b£ ft#''' {)<?)■>$>, b&tH&frlO 12 VX±.P> t> 

-2). 

2 (T)li, — ^m.n, m £ n <F)&Mli'Xcr>i& •) , m : 

T<7)tfT^( 0 ~11<7>I&&), n : 7 *7 > Ktfc( 0 ~ 9 <7) $&££ ), n = 
9 cr> t # li 9J ') _hlf , n = 0 (7) t •) »-C (- & <2) . i fc, ; ?" 

<7)ft!iCO £ # ( 9 - n ) ( 10- n ) A<n% iblz £ h . 

(Dti, «t^*£*Mi&£''10 12 lUJ*<7>^£^fL 
■2> . 

3®ii, FIXED t. 

(g){i, -d. d dE± d d COftZXrtijtjir £> . 1 #@<7)d(iOT 

4*V' (fcrtfL, *fcft* f O T'^-v> t £ ). 


p *f =? J±$\\ I M / ?co ; lH^T’Pn^ : cfi±^>. fiH&lcF^AAcDAtfJ^Tf 

oTi^ilcLIiiiLE. 

10 NORMAL 

20 A=3. 14159265354 
30 E=1 . 234E-12 
40 PRINT A>B 
50 FIXED 3.5 
60 PRINT A?B 
70 FLOAT 3.4 
SO PRINT A? B 
90 END 

n. ft m 

3. 14159265354 1.234E-12 

3.142 0 . 000 

3.141E+00 1 . 2 34E-12 

mm : 


y—yju, y-ryyxh, yo—h 


APL 

— 

SMC — 

TRS i 

- 

MZ35 

CPM 

- 

XI Hu — 

M223 

- 

MB1 6 — 

MZK 

- 

IBM55 — 

CBM 

- 

PC100 — 

PC 8 

- 

MSX — 

TRSa 

- 


PC3 



IF 82 

- 


Ls^O!* 3 

- 


Cl 80 

— 


M243 

- 


MZB 

- 


BUB 

- 


FM 8 

- 


PSP 

- 


PC 88 

- 


N52 

— 


PC 6 

- 


MLT 

- 


HC 

- 


FP1 1 

- 



+ — • u- v<ns^it CHR$ 


: CHR$ ( A ) 

ffltWe : ascii mm.. 

ffeWi : 1 0 ^ A <256 

2 A^^/j^^gy^^tx^iKir, nmx^n 

Htfi 

3 3 > h O— 6 £ 

£izi$v tmnx'bz. 

4 ASC <F>mxhh. 

5 fc^ru h n 

JE1= : U JIS 16itt3 — K K. 

2, JISE^3- K JIS 3- KffcL fctw. 


37° □ -7A$ij : ascii =i-k 65~7o ^rco^^^jiiaic^TK-r 

10 FOR 1=65 TO 70 

20 LPR I NT " CHR$ ( " " I ? " ) = " ; CHR$ ( I ) 

30 NEXT I 
40 END 


m ?t m 

CHR*( 65 )=A 
CHR$( 66 )=B 
CH R$< 67 ) =C 
CHR$< 68 )=D 
CHR*( 6? )=E 
CHR*( 70 )=F 


: asc 


- 323 - 




apl 


TRSi -tttmt. 


CPM -tttfflt. tzt* L, i] 


M223 • tttmt. tztz fL, 

ESC ( 27 10 ) f±/U*j£;h.Sr^. 


MZK Wit. tztz fL, *7 

• 3- K^T^T' «*><£>. £ 
tz fib' z. tt v ' — K fth h . 


cbm . -&-x tmt. 


pcs • 


TRSn - Klctmt. 


PC3 • *-$Zt mt. tztz' L, A 
*«»*£f*;b*t'*H*ra*k ftfift 

•y =7 THItf'ftSti 


IF82 


l*s<)\s3 

• * X k |5j t . 

C180 

• Kz££fc\t. 

M243 

• M223 £ fflt . 

MZB 

• MZK £fflt. 

BUB 

• tttmt. 

FM8 

•*-sc£mt. 

PSP 

• :mt. 

PC88 



N52 -JIS =J — K^ f A Xh h ~$C 




PC6 

• **£|!?l t. 

MLT 


HC 

• tttfflt. 

FP1 1 

• *:fc2:[!0b. 

• £ feC, 


S&n — 

Y^yXt¥9\ lz$z&i-& 

MKF $ <£> 6 . 

SMC 

•A * 

t*WT(i A £ n h . 

MZ35 



X 1 Hu - 3|ftf* ( , ) XtEMhtl 

HEXCHR $ (“30") 

MIRRORS ("A”) 

• -$-;£. t? iXtzSC£&,(n 2 it3&£fe;it 
1^3- K£-5-;c6. 


MB16 • 

ilh. 


IBM55 • TX*- • a — K-Ciii* 

<, — 6. 

• 0 ^ A ^11535. 

* A lz (&J ), (&k) 

Ciot, JIS16il=7- K n ,JIS 

E.£ =7 — K 2) u <£ & ^ 

tih. 


pc ioo • 

£ti*<7>y<vf h&*ritii*g3ttfc 

tSC^'J £i£T. 

• |&^'&H80~&HFF<5O^KC^ 
6 £ £ It * -v 7 9 9 • -t — Yti iJ 7 
7-74 y 


- 324 - 


T7.*- • 3- CHR$ ^r-\7^^57$ 



TX* — • z\- K-ffc ASC 


Mj£ : ASC ( E$ ) 

E $ ©jj»a©:jfc3s© ASCII =>— K©fla£5K©6M&. 

4#^ : i mmomm.T-W6tL&. 

2 *^ij E$ 

3 CHR$^^f^^>. ’ 

A B CDEFGHI J KLMNOPQRSTUVWXYZ 
65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 
abcdefghijklmn opqrstuvwxyz 
9 7 9 8 9 9 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 
0 123456789 ^? "#$%&’ ()*+,-. / 

48 49 50 51 52 53 54 55 56 57 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 


Xu? -? A .& ij : a, b, c © ascii d- io 

-S. 

10 E$="ABC" 

20 FOR 1=1 TO 3 
30 E1$=MIB$(E$,I,1> 

35 A=ASC<E1$) 

40 LPRINT "ASC ( " J El $5 " ) ; A 
50 NEXT I 
60 END 

m ft m 

ASC (A) = 65 
ASC (B) = 66 
ASC <C) = 67 


#f% : CHR$ 


- 325 - 


APL 


TRS i 

• ** t In] t . 

CPM 

• £ |h] b . 

M223 

ASCII ( E $ ) 

MZK 


CBM 


PC8 

• JC#M. 

TRSii 

• tmt. 

PC3 

ASCII 

flit- 

• tztZ L, 

K“C£* < JIS 3 — Kct) 

&. 

IF 82 

• *-£t fflt. 


•*-xt mt. 

C180 HOC. 

•ASC% ( E $ ) itnii', 161127 

M243 

• wit. 

MZB 


BUB 

•*-%t mt. 

FM 8 

• ^irlUb. 

PSP 

• mt. 

PC 88 

■ 

N52 

• PC3 £ iwi b. 

PC 6 

• ^-Jctmt. 

MLT 

• *^ctmt. 




hc -tttmt. 


fpii -ttt mt. 

h cvf m 

SMC 

*1ck\3lt. 

MZ35 

PC3 ^ III b. 

XI Hu 

«c£iwjb. 

MB1 6 

tttmt. 

IBM55 * 

H&c =7 — K coft £ ^sb h . 

• >rc7)ftii(z 

, JIS16ii2J- 

h JIS $( E $ ), JIS E * 27 — K 

KTN $ ( E $ ) -h<hh. 

PC100 • 

" \±T—9 t tXt&i Z 



• *<7>m± ibm55 t mt. 

MSX 



- 326 - 

val 

: VAL ( E$ ) 

^Wi • 1 E$ c7)^tjco^:^7&'' + , -, &, £ /zltgc^PTfrl+tlti' 0 tz 

tiih. 

2 ftic J: 

3 a^t^vvfc^J^MEL *:*£“. 

- 2 >. 

4 J: t>'16it^» 8 h «I 

Hfc. 

5 STR $ (ft'itfL'CJh h . 


3 / p *f ^ A^J ! ^©]fc^^J<Da^©c1i£lC38!a'3"£>. 

10 E$=" 1 - 23E—6" 

20 A=VAL ( E$ )-+ : 1 0 
30 LPRINT "E$=" ? E$> 11 A=" 5 A 
40 END 


m n m 

E*= 1 . 23E— 6 A= 1 . 23E-05 


#J& ; STR$ 


jvjzl — 


APL • fzKL, & 

•fipi ac^f&lttykz.tc'''. 

TRS 1 


CPM 


M223 -APL^rlWH:. tzt* L, 

VAL# (E$ 

£ bT£ h. 

MZK 

• APL iilHjl:. 

CBM 

• APL £ Ini b. 

PC 8 

• *•£#!$. 

TRSn 


PC3 • APL tfflt. tzt* L, 

E $ £ v =» -C 

IF 82 

• ^tisil:. 



C180 • ^Sctunt. tzt* L, * 

S K £ 0 U ta h . 

• LTlOit^ 

»£*«•*- SRia* L-C FLT V 

hh. chno%. 

&BU&. 

M243 

• M223 £ fflt. 

MZB 

• APL £fflt. 

BUB 

• ** £ PJJL . 

FM 8 

• ** £ |5j L . 

PSP 

• APL 2: IWJ U . 


PC88 


N52 

-, & 
l£ 0 lz 

• E $ CO S^C7) , 

, . , a^'C&l+fl 

PC6 

• ^^c^iwil:. 

MLT 

• *:££ls]b. 

HC 

• ^ilsib. 

FP1 1 

• *-X£mt. 

SMC 

ai. 


MZ35 

• ***:rat. 

XI Hu • #3: £ la] t . &£>\ 

4 li2jt*^tU^. 

MB1 6 

• **£Ii?Jl;. 

IBM55 

• dcomtc, JIS16itf^(&J), & 
J:t>'JIS[K*^^(&K) <n^c.^\\ 
{j, K#^t-agai“^w 

PC100 


MSX 

• ***:Rlt. 


STR$ 


l STR$ ( A ) 

: 1 Aco&m<7)±£$lzJ: I), 

2 VAL 033&-C&6. 


10 A= 123. 456 
20 E$=STR$ (A+l 11.111) 

30 FOR 1=1 TO 8 
40 LPRINT LEFT$(E$,I) 

50 NEXT I 
60 END 

m ?f m 

••-. 

JL 

23 

234 

234. 

234.5 

234.56 

234,567 

#J?S : VAL 


- 327 - 


xX • = t - c — • ;us 


MLT 


HC 


FP1 1 


SMC 


MZ35 


XI Hu 

• #:££|5]b. fcfcTU IE 


MB1 6 


IBM55 

• «C2:lBlb. 

PC100 


MSX 



APL 

• mt. 

TRSi 


CPM 


M223 

• A iz 

NUM $ (A) 
fiffittJKft (A#) 

MZK 


CBM 

• ^^Jb. 

PC 8 


TRSii 

• *-xt mt. 

PC3 

• ^M^nrj'b. 

IF 82 



Cl 80 


M243 

• M 223 1 mt. 

MZB 

• *2:£Elb. 

BUB 

• *-%tm t. 

FM 8 

• *:££|5]b. 

PSP STR $ (A, M) 

3 ft, 

mtb ^ ft 6 . M £ Ww&i“ 6 t PC8 
tmt. 

PC 88 

• *3c£fs]b. 

N52 

• **2:iwjb. 

PC 6 

• ^^ilHib. 



/ 


- 328 - 

HEX$ 


: HEX$ ( M ) 

ffltM : lommwmz, i6mmz&ttzx^mx^z.&m$k. 

#gt : i &&.iz9z&2titz*>t -cM&<x>m 

2 5I*5[M fiOffiii, - 32768 32767, ifcli, 0^M^65535 <7) 

3 16iig&-C^rT&'7’n L tffiflj 

T& & . 


■7°P^‘-7A^|J : -Zb'% 34=b 7 £^ 

10 FOR I =-2 TO 3 

20 LF'RINT I ’ " = " 5 HEX* ( I ) " " H" 

30 NEXT I 

40 LF'RINT HEX* (34) 

50 END 

i ft i 

-2 =FFFE H 
-1 =FFFF H 

0 =0 H 

1 =1 H 

2 =2 H 

3 =3 H 


#0S ; OCT$, VAL 


'VWS 


APL 

— 

TRSi 

— 

CPM 

• ttctmt. 

M223 

- 

MZK 

— 

CBM 

— 

PC 8 


TRSn 

• ***ra t. 

PC3 

— 

IF 82 

- *-*:t rat. 

Jl*3 


Cl 80 

- 

M243 

— 

MZB 

- 

BUB 


FM 8 

• A^^IhJL. 

PSP 

• rat. 

PC 88 

• *:££|HjL. 

N52 


AL tzh t X'&m&fr 1 . 

PC 6 


MLT 


HC 

■ ** t ft t . 


fpi i • tzt* l, 

— 32769< M<65536. 


SMC HEX $ (M, N) 

• Mcoffi(i-32768^M^32767.'J'3& 
*UT(ilZg^£A$n^. 

4tfxi-cflKg 

T'£, OtcT&L*:*:Lrat. 
•n^^h o^^trzz 
1 1 : £ & . 


MZ35 * STRING $ (Al, A2) 
•Altitfr&, A2 iziomx^irh 


XI Hu • $\m± -65535-65535 

(-65535 1 (i 1 - 65535 L 

Rlt). 


MB1 6 • ftftT'fi, -32768- -1 

T% IE&Ti± 0 -65535. 


IBM55 • FP 11 ^ISlt. ?zt*L, 'J> 
&fflS5meg&3LA$;h.S. 


PC100 •*:*:£ Hilt. 


MSX -2|s:*^rat. 


8 m oct$ 


: OCT$ ( M ) 

: 10ii£kco3l?&£, 8 

: i 5mr>'h$cUfr£yj')&xx, msuz&ikztL 

2 3I&M Oftli, — 32768 32767, £fc(i, 0 ^M^65535 <0 
lEHT**. 

Tib z> . 


y □ ^'-7 AfliJ : 

10 LPRINT OCT* (8) , OCT* (34) 

20 LPRINT OCT* (-34) ? OCT* (12-5) 
30 END 


*T #J 

1 0 42 

1 77736 1 4 
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